holaaa
yo de nuevo
logre hacerlo pero al queres pasarle parametros me aroja un error de que los tipos no coinciden y es en las fechas.. este es el codigo como lo tengo...
' Abre una conexión.
nDATABASE = "DB1.MDB"
conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path() & "\" & nDATABASE + ";Persist Security Info=False"
' Abre un conjunto de resultados.
Set rst = New ADODB.Recordset
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.ActiveConnection = conn1
rst.Source = " SELECT * FROM CLIENTES WHERE FECHA_HORA BETWEEN " + fecha1 + " AND " + fecha2 + " AND ALERTA_DESCONOCE_CONTRATO = 'SI' ORDER BY FECHA_HORA "
rst.Open
Set Reporte_desconoce_contrato.DataSource = rst
Reporte_desconoce_contrato.Show
y en donde van las fechas esta el error como puedo hacerlo..
