How to use findfirst method to search database number one by one number index field

[hwkong1688]

Hi all friend,
im new in vb, can anyone help me how to write the code for findfirst method by index number.

example
when i key in one by one number in field will search one by one number in list DBgrib1.

Private Sub Search_KeyPress(KeyAscii As Integer)


If KeyAscii = 13 Then
Data1.Recordset.FindFirst "[barcode] like '" + Search + "*'"
Search.Text = UCase(Search.Text)
If Data1.Recordset.NoMatch Then
MsgBox "Barcode number Not Found"

End If

Search.SelStart = 0
Search.SelLength = Len(Search.Text)

End If

If KeyAscii = 27 Then

Unload Me
Form1.Visible = True

End If

    num = InStr("1234567890" & Chr(8), Chr(KeyAscii))
    If num = 0 Then
        KeyAscii = 0
    End If

End Sub

[Hack]

Are you searching your database (what database are you using) or your grid?

[hwkong1688]

hi friend, i using the microsoft access, i want to search dbgrib.

pls help.thx