[Resolvido]Sistema de Login

Option Compare Database
Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "A senha digitada não confere", vbExclamation, "ID incorreta"
DoCmd.Close acForm, "FRMprincipal2"
DoCmd.OpenForm "FrmLogin", acNormal, "", "", , acWindowNormal
Else
Forms!FrmLogin.Visible = False
DoCmd.OpenForm "frmprincipal", acNormal, "", "", , acWindowNormal
DoCmd.Close acForm, "Frmlogin"
End If
End Sub

**** ESTÁ DANDO ERRO NA LINHA EM DESTAUQE, SE ALGUEM PUDER ME INFORMAR PORQUE ESTÁ DANDO O ERRO:
Erro em tempo de execução '7951'
Você inseriu uma expressão que contém uma referência inválida à propriedade RecordsetClone.

Olá, seja bem vindo ao fórum! Veja aqui vários métodos de login. Talvez consiga resolver e ainda ampliar seus conhecimentos.

Obrigado pela dica.
Mais acabei achando um site que ensina passa a passo o sistema de logim, bem como disponibiliza o arquivo do login.
Claro que temos que deixar o crédito do autor.

site: Mabesi.comhttp://www.mabesi.com/artigos/aplicativos-office/access/33-sistema-de-login-e-senha-no-accessvba-parte-1-5.html?showall=&start=1

Obrigado

Valeu