Access - Ejemplo de Control de Usuarios para poner permisos

Private Sub cmdLogin_Click()

Dim rst As DAO.Recordset

Dim dbs As DAO.Database

Dim stDocName As String

Dim strSQL As String

Set dbs = CurrentDb

    If Me.txtUsuario <> "" And Me.txtContraseña <> "" Then

        stDocName = ("Select * FROM USUARIOS WHERE USUARIOS.nombre_usuario = '" & Me.txtUsuario & "' AND USUARIOS.contraseña = '" & Me.txtContraseña & "' ORDER BY Usuarios.nombre_usuario")

        Set rst = dbs.OpenRecordset(stDocName, dbOpenDynaset)

        If rst.RecordCount > 0 Then

            'PONES EL EVENTO QUE DESEES

        Else

            Me.txtContraseña.SetFocus

            MsgBox "Error...", vbCritical, "Mensaje de error"

        End If

            rst.Close

            Set rst = Nothing

    Else

        MsgBox "Faltan parametros  ;(", vbCritical, "Mensaje de error"

    End If

End Sub