Access - ayuda con un error en mi código

Private Sub cmdAceptar_Click()

Dim vUser As Variant

Dim vPass As Variant

vUser = Me.cboUser.Value

vPass = Me.txtPass.Value

If IsNull(vUser) Then

MsgBox "No ha seleccionado ningun usuario", vbInformation, "AVISO"

Me.cboUser.SetFocus

Exit Sub

End If

If IsNull(vPass) Then

MsgBox "No ha introducido ninguna contrseña", vbInformation, "AVISO"

Me.txPass.SetFocus

Exit Sub

End If

Dim rst As Recordset

Set rst = CurrentDb.OpenRecordset("TPass", dbOpenSnapshot)

If  rst.RecordCount = 0 Then //aqui me da error

Msbox "No  existen usuarios ", vbinformatión, "Aviso"

GoTo salida

End If

rst.DMoverFist

Do until rst.EOF

Dim tUser,Tpass As String

tUser = rst.fields(0).value

t.pass = rst.Fields(1).Value

if tUser = vUser Then

If tPass = vPass Then

 DoCmd.CloseacForm, Me.name

DoCmd.OpenForm "FMenu"

Else

MsgBox "La contraseña introducida  no es correcta", vbInformation, "Incorrecto"

Me.txtPass.setFocus

Me.txtPass.Value = Null

GoTo Salisa

End If

End If

rst.MoveNext

Loop

Salida

rst,Close

Set rst = Nothing

end sub