mshflexgrid y una consulta sql que no funciona

[azazel_xes]

gracias por todo pero ya resolvi el problema igual aqui pongo coo lo resolvi por si alguien algun dia se encuentra en la misma situción que yo:

NOTA*parece ser que para consulta de fechas sirve mejor el like en vez de =

Dim conexion As ADODB.Connection: Set conexion = New ADODB.Connection
Dim recorset As ADODB.Recordset: Set recorset = New ADODB.Recordset
Me.MSHFlexGrid1.Visible = True
With conexion
.Provider = "MSDataShape.1"
.ConnectionString = "Data Source=" & "C:\carpeta\mibasededatos.mdb;" _
& "Data Provider=Microsoft.Jet.OLEDB.4.0;"
.Open

With recorset
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockReadOnly
End With
Set recorset = .Execute("SHAPE {SELECT fecha As FECHA , FROM "mi tabla" WHERE fecha LIKE ' " & CDATE(ME.TEXT1.TEXT) & " ' }")

*creo que con esto alguien ya puede salir de un lio que se paresca al que me paso a mi

Set Me.MSHFlexGrid1.DataSource = recorset