Visual Basic - Como MSFelxGrid

Hola amigos otra vez yo ahora con este problema:

Necesito visualizar en un MSFlexGrid la base de datos que mi programa alimenta pero solo puedo ver de varios registros ya echo solo uno:

Dim X As Integer, Y As Integer, Contador As Integer
Dim i As Integer

FlexMoral.Row = 0

For i = 1 To 6
FlexMoral.Col = i
FlexMoral.Text = Rs(i).Name
Next i

With Rs
.MoveFirst
.MoveLast
Contador = .RecordCount
For X = 1 To Contador
FlexMoral.Rows = X
For Y = 1 To 6
FlexMoral.Col = Y
FlexMoral.Text = Rs(Y).Value
Next Y
.MoveNext
Next X
End With
FlexMoral.Refresh
End Sub

Para todo esto declaro como global Dim Rs as DAO.RecordSet, la gran mayoria de mis controles son matriz, y por eso mi codigo de arriba ¿en que esta mal?

GRACIAS :-)