answersLogoWhite

0

Private Sub search_Click()

On Error GoTo donothing

a = InputBox("enter the name")

s1 = ("name='" & Trim(a) & "'")

rs.Findfirst (s1)

If .nomatch Then

MsgBox "record not found"

Else

MsgBox "record found"

Text1.Text = rs(0)

Text2.Text = rs(1)

Text3.Text = rs(2)

Text4.Text = rs(3)

End If

Exit Sub

donothing:

MsgBox "error description"

End Sub

User Avatar

Wiki User

13y ago

What else can I help you with?