Hola gente, me gustaría saber como puedo ir pasando el registro que voy recuperando del recordset me vaya apareciendo en el datagrid. Mi código es el siguiente:

If (Fecha_Dsd < Fecha_Hasta) Then
ado_principal.Recordset.MoveFirst
While Not ado_principal.Recordset.EOF
If (IsNull(ado_principal.Recordset!fecha) = True Or Trim(ado_principal.Recordset!fecha) = "") Then
Fecha_P = Right(Date, 4) & Mid(Date, 4, 2) & Left(Date, 2)
Else
Fecha_P = Right(CDate(ado_principal.Recordset!fecha), 4) & Mid(CDate(ado_principal.Recordset!fecha), 4, 2) & Left(CDate(ado_principal.Recordset!fecha), 2)
End If

If (Fecha_Dsd <= Fecha_P And Fecha_P <= Fecha_Hasta) Then

'*********** AQUÍ ES DONDE QUIERO QUE SE VAYA MOSTRANDO EL RESULTADO *******
'*********** ¿COMO HAGO? ¿O COMO HAGO EL FILTRO? *****
End If
ado_principal.Recordset.MoveNext
Wend

Else
MsgBox ("La fecha desde debe ser menor que la fecha hasta")
End If