nesecito ayuuudaaaa por favor por q me sale q falta

"""""variable de tipo object o la variable de bloque with no esta establecida"""""

si ya la estoy estableciendo:

Private Sub cmdingresar_Click()

''validar que se ingrese datos en las cajas de texto

If txtnombre.Text = "" Then MsgBox "ingreasar el nombre de usuario", vbInformation, " nombre de usuario": txtnombre.SetFocus: Exit Sub
If txtpassword.Text = "" Then MsgBox "por favor ingrese contraseña", vbInformation, "contraseña de usuario": txtpassword.SetFocus: Exit Sub
''buscar usuarios en la tabla1

With rsusuario
.Requery
.Find "id='" & Trim(txtnombre.Text) & "'"
If .EOF Then '''si no encuentra ningun usuario
MsgBox "este Usuario no existe!!!", vbInformation, " NO Existe"
txtnombre.Text = ""
txtpassword.Text = ""
Exit Sub

Else
If !Password = Trim(txtpassword.Text) Then
frmmenu.Show


Else
MsgBox "Clave Incorrecta", vbCritical, "Clave Incorrecta"
txtpassword.Text = ""
Exit Sub
End If
End If
End With
End Sub

Private Sub cmdsalir_Click()
Unload Me
End Sub

Private Sub Form1_Load()
USUARIOS
End Sub

Private Sub Frmlogin_Load()
USUARIOS
End Sub





el q me ayude por favor mill gracias espero sus respuestas