by subhash waydande (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 27th January 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
string searching into recordset
'rsown is record set name
rsown.MoveFirst
compbare = vbBinaryCompare
While rsown.EOF = False
Position = InStr(Position + 1, rsown.Fields("emp_name"), txtname, bTextCompare)
If Position > 0 Then
Call toload1
Exit Sub
Else
rsown.MoveNext
End If
Wend
end sub