Private Sub cmdOK_Click()
    'Verificar la Clave
    dbUser.RecordSource = "SELECT * FROM Users WHERE Ident=" & Chr(34) & Combo1.Text & Chr(34)
    dbUser.Refresh
    dbUser.Recordset.MoveFirst
    If txtPassword = dbUser.Recordset.Fields("Clave") Then
        'Variables para pasar parmetros
        'cuando acceso es correcto
        LoginUser_ID = dbUser.Recordset.Fields("Ident").Value
        LoginUser_level = dbUser.Recordset.Fields("Categoria").Value
        LoginUser_name = dbUser.Recordset.Fields("Nombre").Value
        dbUser.Recordset.Close
        frmLogin.Hide
        frmMain.Show
    Else
        MsgBox "Clave invalida, consulte al Administrador...", , "Acceso al Sistema"
        txtPassword.SetFocus
        'SendKeys "{Home}+{End}"
    End If
End Sub
