ayuda por favor

[prometeo_1]

hola

pablo....
el problema es que todo se ve perfecto.. incluso al poner una interrupcion voy al source y me muestra las fechas dtpicker con el mismo formato que le asigne yo al momento de hacer las pruebas anteriores ...

no puedo copiar lo que dice el source pero sale la sentencia

select...bla.bla .. where fecha_hora between 24/02/2004 an...

y rafa..

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 * FROM CLIENTES WHERE FECHA_HORA BETWEEN " & DTPicker1.Value & " and " & DTPicker2.Value & " AND ALERTA_DESCONOCE_CONTRATO = 'SI'"
rst.Open

Set Reporte_desconoce_contrato.DataSource = rst
Reporte_desconoce_contrato.Show