tengo puesto lo siguiente:
Private Sub CmdAceptar_Click()
If DCount("*", "operario", "clave='" & Me.Txtclave) > 0 Then
DoCmd.OpenForm "operario", acNormal, , "clave='" & Me.Txtclave & "'"
Else
MsgBox "La contraseña introducida no corresponde a ningun empleado", vbCritical, "CONTRASEÑA ERRONEA"
End If
End Sub
Y este es el error que me da
