runtime error '91'

i need some help.. i got runtime error '91'
this is the codes :

Adodc1.Recordset.MoveFirst
Do While Not Adodc1.Recordset.EOF
If txtUserName.Text = Trim(Adodc1.Recordset!Name) And txtPassword.Text = Trim(Adodc1.Recordset!Password) Then
LoginSucceeded = True
GoTo check
Else
LoginSucceeded = False
Adodc1.Recordset.MoveNext
End If
Loop

check:
If LoginSucceeded = True Then
frmOptions.Caption = "Login User: " & txtUserName.Text
frmOptions.Show
MsgBox "Login User: " & txtUserName.Text, vbOKOnly
Unload Me

Else
MsgBox "Invalid Username or Password, try again!", , "Login"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub

Where does the error occur?

Adodc1.Recordset.MoveFirst --> it says object variable or with block variable not set

can any1 help me? no 1 knows the answer?

I suppose your recordset isn't really there. The code you have posted doesn't help identify your problem.

I have the same problem too. Run time error no 9 . Have you found the soulution

Try to check if adodc1 is linked correctly to the database which you intend to link