Visual Basic - Se requiere un objeto VB6

Private Sub Command1_Click()

'validar los campos usuario y contraseña

If Text1.Text = "" Then MsgBox "No has ingresado el usuario.", vbInformation: Text1.SetFocus: Exit Sub

If Text2.Text = "" Then MsgBox "No has ingresado la contraseña.", vbInformation: Text2.SetFocus: Exit Sub

'Validar Usuario

With RsUsuarios

   .Requery 'actualizar

   .find "nombre '" & Trim(Text1.Text) & "'"

If .EOF Then 'Si llega al final

    MsgBox "Usuario incorrecto", vbInformation

    Text1.Text = "" 'Limpia la caja

    Text1.SetFocus 'Ubica la escritura en el usuario

    Exit Sub

Else 'Entonces no llegó al final y si encontro el usuario

    'validar contraseña

    If contraseña = Trim(Text2.Text) Then

        Unload Me 'cierra el formulario

        Form2.Show

    Else

        MsgBox "Usuario incorrecto", vbInformation

        Text2.Text = "" 'Limpia la caja

        Text2.SetFocus 'Ubica la escritura en lz contraseña

        Exit Sub

    End If

End If

End With

End Sub

'Validar Usuario

With RsUsuarios

.Requery 'actualizar

.find "nombre '" & Trim(Text1.Text) & "'"

'Si el mensaje dice Obbjetos... entonces cuales son los objetos

'La pregunta es ... existe el Recordset llamado RsUsuarios?

'el txt tambien es un objeto pero si te da en las dos .. quiere decir que es el recordset el que falta... verifica si esta definido y si esta publico