filtros con calendarios?

[wolverartur]

este es el codigo que me pasaste pues no se que pasa espero me ayudes
Private Sub Command1_Click()

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
End Sub
Errores:
subErrore
End Sub