I have problems accessing my database. this is wat happens.

the code below is a part of my program.

Private Sub log()
Dim foundflag As Boolean
datavalues = Left$(strData, len (strdata, - 2)
If Len(datavalues) > 0 Then
data1.Recordset.MoveFirst <--- Problems Here!!!
foundflag = False

....... bla-bla-bla


it gives me an error of "Object Variable or With Block variable not set"

wat does this mean?