ya se se resolvio el problema con las siguiente instruccion espero les sirva ,en mi caso con esto si muestra los datos pero claro no lo he probado con acces ya que la base que ocupo esta en sql server 2000.
aqui estan las instrucion
'*****************************
'paso codigo completo para ver com funciona
'*******************************
Private Sub Command1_Click()
Dim fecha1 As String
Dim fecha2 As String
Dim rsinicial As ADODB.Recordset
Dim rsfiltrado As ADODB.Recordset
If (Finicio = "__/__/____") Then
MsgBox "Fecha Inicio del Reporte", vbInformation
Finicio.SetFocus
Exit Sub
End If
If Ftermino = "__/__/____" Then
MsgBox "Fecha Termino del Reporte", vbInformation
Ftermino.SetFocus
Exit Sub
End If
fecha1 = Format$(fechainiciorango, "yyyy-mm-dd")
fecha2 = Format$(fechaterminorango, "yyyy-mm-dd")
conexion
Set rsinicial = New ADODB.Recordset
Set rsfiltrado = New ADODB.Recordset
rsinicial.Open "SELECT *FROM registrardatos WHERE(fregistro BETWEEN CONVERT(DATETIME,'" & fecha1 & "') AND CONVERT(DATETIME,'" & fecha2 & "'))", con, adOpenDynamic, adLockReadOnly
Set rsfiltrado = rsinicial
If rsfiltrado.EOF Then
MsgBox "No hay datos registrados ntre el rango de fechas", vbCritical
Exit Sub
Else
cont = 1
If Not (rsfiltrado.EOF And rsfiltrado.BOF) Then
Do While Not rsfiltrado.EOF
grid.Rows = grid.Row + cont
grid.TextMatrix(cont, 0) = IIf(IsNull(rsfiltrado(0)), "Campo sin Registro", Trim(rsfiltrado(0))) 'nombre
rsfiltrado.MoveNext
cont = cont + 1
Loop
Exit Sub
End If
End If
End Sub
espero que con esto ayude a alguien de antemano muchas muchas gracias
si en algo te puedo ayudar TERI cuenta con ellor
