no entendi bien eso pero te envio el kodigo que utilizo al hacer la llamada al reporte..ok
Dim conn1 As New ADODB.Connection
Dim rst As ADODB.Recordset
Dim fecha1, fecha2
fecha1 = CDate(DTPicker1.Value)
fecha2 = CDate(DTPicker2.Value)
' 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 FECHA_HORA, OBSERVACION, N_CONTRATO, TELEFONO, RUT_CLIENTE, NOMBRE_CLIENTE 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
asi es como lo estoy intentando ya que en la base de datos tengo nnnn campos, pero solo quiero que selecionen la fecha nada mas..
