[Resolvido]Alterar password

Bom dia amigo,

Tenho a seguinte expressão:

Private Sub Comando1_Click()
If DCount("[nome]", "user", "[nome] ='" & Me.txtlogin.Value & "'") = 0 Or DLookup("[password]", "user", "[nome] ='" & Me.txtlogin.Value & "'") <> Me.txtpassword.Value Then
MsgBox "Login ou Password incorreto."
Else
CurrentDb.Execute "UPDATE user SET password = " & Me.Texto37 & " WHERE nome = " & Me.txtlogin & ""
End If
End Sub

Diz-me que tenho o erro 3061. Já conferi aqui pelo forum e o erro é relativo a ter poucos parâmetros, porém não sei onde está o meu erro, parece-me certo

Código:

If DCount("*", "user", "[nome] ='" & Me.txtlogin.Value & "'") = 0 Or DLookup("[password]", "user", "[nome] ='" & Me.txtlogin.Value & "'") <> Me.txtpassword.Value Then
MsgBox "Login ou Password incorreto."
Exit Sub
Else
CurrentDb.Execute "UPDATE user SET password = '" & Nz(Me.Texto37.Value, 0) & "' WHERE nome = '" & Nz(Me.txtlogin.Value, "") & "'"
End If

Sr. Paulo

Desde já muito obrigado pela sua ajuda deu tudo certo
coloquei desta maneira:

Private Sub Comando1_Click()
If IsNull(Me.txtpassword) Then
MsgBox " Por favor introduza uma Password", vbInformation, "Password necessaria"
Me.txtpassword.SetFocus
Else
If IsNull(Me.Texto37) Then
MsgBox " Por favor introduza uma nova Password", vbInformation, "Password necessaria"
Me.txtpassword.SetFocus
Else
If DCount("[nome]", "user", "[nome] ='" & Me.txtlogin.Value & "'") = 0 Or DLookup("[password]", "user", "[nome] ='" & Me.txtlogin.Value & "'") <> Me.txtpassword.Value Then
MsgBox "Login ou Password incorreto."
Else
CurrentDb.Execute "UPDATE user SET password = '" & Nz(Me.Texto37.Value, 0) & "' WHERE nome = '" & Nz(Me.txtlogin.Value, "") & "'"
Me.txtpassword = ""
Me.Texto37 = ""
End If
End If
End If
End Sub

Obrigado pelo retorno o forum agradece.