Option Explicit
 
Private rsLogin As ADODB.Rcordset
 
Private Sub Form_Load()
   Set rsLogin = New ADODB.Recordset
End Sub
 
Private Sub cmdlogin_Click()
   Call Login
End Sub
 
Private Sub Login()
    If txtusuario.Text = "" Then
        MsgBox "Debe Ingresar un Usuario", 16
        txtusuario.SetFocus
        Exit Sub
    End If
    If txtpassword.Text = "" Then
        MsgBox "Debe Ingresar un Password", 16
        txtpassword.SetFocus
        Exit Sub
    End If
    rsLogin.Open "SELECT login,password FROM usuarios WHERE login='" & txtusuario & "'", cn, adOpenKeyset, adLockOptimistic
    If rsLogin.EOF Then
        MsgBox "No Existe el Usuario Indicado", vbCritical
        rsLogin.Close
        Exit Sub
    Else
        If LCase(rsLogin("login")) = LCase(txtusuario) And LCase(rsLogin("password")) = LCase(txtpassword) Then
            ' si entra aca es porque accedio correctamente
        Else
            MsgBox "La Password es incorrecta", vbCritical
            rsLogin.Close
            Exit Sub
        End If
    End If
    rsLogin.Close
    Unload Me
    frmgym.Show
End Sub

Private Sub ColorearFecha()
    Dim vFechaPago As String
    Dim i As Integer
    Dim vColumna As Integer
 
    MSHFlexGrid1.Redraw = False
    For i = 2 To MSHFlexGrid1.Rows - 1
        For vColumna = 0 To MSHFlexGrid1.Cols - 1
            MSHFlexGrid1.Row = i
            MSHFlexGrid1.Col = vColumna
            vFechaPago = CDate(Format(MSHFlexGrid1.TextMatrix(i, 7), "dd/MM/yyyy"))
            If Date > CDate(vFechaPago) Then
               MSHFlexGrid1.CellBackColor = vbRed
            Else
                MSHFlexGrid1.CellBackColor = vbGreen
            End If
        Next vColumna
    Next i
    MSHFlexGrid1.Redraw = True
End Sub