OK, I'm at my wits end on this one and cannot find much of any use in MSDN either for some reason - LOL.

This is the code:

Private Sub Command1_Click()
Dim strsearchfor As String, intfound As Integer

strsearchfor = UCase(Text1.Text)
Data1.DatabaseName = "e:\shopkeeper\shopkeeper.mdb"

Data1.Recordset.MoveFirst
intfound = 0

Do While intfound = 0 And Not Data1.Recordset.EOF
If UCase(Data1.Recordset.Fields("homephone").Value) = strsearchfor Then
intfound = 1
Else
Data.Recordset.MoveNext
End If
Loop
If intfound = 0 Then
MsgBox ("Unable to locate the requested phone number"), , "Not Fount"

Else

Dim ssql As String

ssql = "select * from customer where [homephone]= chr(34) & strsearchfor & chr(34)"
Data1.RecordSource = ssql
Data1.Refresh

Text2.Text = Data1.Recordset.Fields("firstname").Value
Text3.Text = Data1.Recordset.Fields("lastname").Value
Text4.Text = Data1.Recordset.Fields("custid").Value
End If
End Sub

When entering phone number into text1 - and clicking on the button - it immediately gives me an error 91 - object variable or with block variable not set. What the heck am I missing here? I'm sure it's something very simple and I'm just not seeing it.

Thanks guys
Steve

hi there..

i supossed that data1 is a datacontrol.. so you are trying it to look for something.. but you are moving the recordset inside them before you even give it a recordset..

try to trace your code and you will see that the highlighted error line is that (well, i think so... if not please tell us where is the error)

HTH

Gonzalo