Q: Finding search in database

Rick Eaton; eatonr@worldnet.att.net wrote: 
Private Sub cmdSearch_Click()
	Dim searchtext
	searchtext = txtsearch.Text

	Data1.Recordset.FindFirst "id = (textsearch.text)"
End Sub


A:
Has the record ID a string value or is it a number?
If it's a string just try this:

Private Sub cmdSearch_Click()
	Dim searchtext as string
	searchtext = txtsearch.Text

	Data1.Recordset.FindFirst "id = "'" & textsearch.text & "'"
End Sub

If it's a number:

Private Sub cmdSearch_Click()
	Dim searchtext as integer
	searchtext = Val(txtsearch.Text)

	Data1.Recordset.FindFirst "id = " & textsearch.text 
End Sub

Return