filtros con calendarios?

[lokoman]

Hola!! Adapta el Code:

Código vb:

Sub Consultar()
    Dim strConn As String
    Dim strConsultar As String
    On Error GoTo errores
    strConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;"
    strConn = strConn & "Initial Catalog=" & Trim(cboBaseDatos.Text)
    Adodc1.ConnectionString = strConn
 
    strConsultar = "Select * From asistencia where fecha='" & varFECHA & "'"
 
    Adodc1.RecordSource = strConsultar
    DataGrid.ClearFields
    DataGrid.ReBind
 
    Adodc1.Refresh
 
    If Adodc1.Recordset.BOF <> True Or Adodc1.Recordset.EOF <> True Then
        Adodc1.Recordset.MoveFirst
        Adodc1.Refresh
    Else
        MsgBox "No se encontraron registros.", vbInformation
        Adodc1.Refresh
        Exit Sub
    End If
 
Exit Sub
Errores:
    subErrores
End Sub