Private Sub Command1_Click()
Dim strSQL As String
strSQL = "SELECT * FROM SearchByphoneNumber " & _
"WHERE (HomePhone = """ & varHomePhone & """);"
Me.Data1.RecordSource = strSQL
Me.Data1.Refresh
varHomePhone.SelStart = 0
varHomePhone.SelLength = Len(varHomePhone.Text)

End Sub

When I use this code i get an error " Run-Time error '3061' "
Too Few paremeters , expected 1

Thanks for your help