Tengo un problema al cargar un recordset en un Mshflexgrid de Visual basic 6.0

[Carlitoscl]

Mil gracias por su ayuda, ya logre que me imprima los datos donde yo queria, lo que no le entiendo es como le hago para que me imprima todos los registros que hay en la tabla, pues resulta que me imprime solo el primero , ademas la propiedad RowCount no funciona y tuve que asignarle un valor para probar, como la tabla solo tiene 3 registros, entonces asigne el 3 pero me imprime solo el primer registro 3 veces y pues no se como hacerle.

Dim dr As New ADODB.Recordset
Set dr = conecta.Execute("select * from t_citas")
If Not dr.EOF Then
'Con este ciclo manejas los renglones
For i = 1 To 3
'Con este Manejas las columnas
For j = 1 To 5
flex2.TextMatrix(i, j) = dr.Fields.Item(j).Value 'Para esto es necesario hacer
'Select, acomodando los campos en el ordern correcto, y solo los necesarios
Next j
Next i
' Para que cambie al siguiente registro
dr.MoveNext
End If

De todas formas mil gracias.