Fortunato aconselho você a optar pelo msflexgrid mais facil de trabalhar com ele,
Segue exemplo de como preencher:
Private Sub CmdHistorico_Click()
Set BancoDeDados = OpenDatabase(App.Path & "horas.MDB", False)
Set TBDados = BancoDeDados.OpenRecordset("select Data,ChoraE,ChoraS,DhoraE,DhoraS,Motivo,Saldo from dados where Matricula = '" & Nome.Text & "'AND Data >= #" & Format(DataInicial, "mm/dd/yyyy") & "# and data<= #" & Format(DataFinal, "mm/dd/yyyy") & "# order by data asc,Saldo asc")
If Not TBDados.EOF Then
With MSFlexGrid1
.Rows = 1
.Cols = 8
.ColWidth(0) = 500
.ColWidth(1) = 1000
.ColWidth(2) = 700
.ColWidth(3) = 700
.ColWidth(4) = 700
.ColWidth(5) = 700
.ColWidth(6) = 3750
.ColWidth(7) = 2750
.MergeRow(0) = True
.TextMatrix(0, 0) = "Linha"
.TextMatrix(0, 1) = "Data"
.TextMatrix(0, 2) = "Crédito"
.TextMatrix(0, 3) = "Crédito"
.TextMatrix(0, 4) = "Débito"
.TextMatrix(0, 5) = "Débito"
.TextMatrix(0, 6) = "Motivo"
.TextMatrix(0, 7) = "Saldo"
End With
I = 1
Do While Not TBDados.EOF
With MSFlexGrid1
.Rows = I + 1
.ColAlignment(0) = flexAlignCenterCenter ' alinha coluna
.TextMatrix(I, 0) = I - 0 colocar zero para poder começar com 1
.ColAlignment(1) = flexAlignCenterCenter
.TextMatrix(I, 1) = Format(TBDados(0), "dd/mmm/yy")
.ColAlignment(2) = flexAlignCenterCenter
.TextMatrix(I, 2) = IIf(IsNull(TBDados(1)), "----", Format(TBDados(1), "HH:MM"))
.ColAlignment(3) = flexAlignCenterCenter
.TextMatrix(I, 3) = IIf(IsNull(TBDados(2)), "----", Format(TBDados(2), "HH:MM"))
.ColAlignment(4) = flexAlignCenterCenter
.TextMatrix(I, 4) = IIf(IsNull(TBDados(3)), "----", Format(TBDados(3), "HH:MM"))
.ColAlignment(5) = flexAlignCenterCenter
.TextMatrix(I, 5) = IIf(IsNull(TBDados(4)), "----", Format(TBDados(4), "HH:MM"))
.ColAlignment(6) = flexAlignCenterCenter
.TextMatrix(I, 6) = IIf(IsNull(TBDados(5)), "----", TBDados(5))
.ColAlignment(7) = flexAlignRightCenter
.TextMatrix(I, 7) = IIf(IsNull(TBDados(6)), "-----", TBDados(6))
End With
I = I + 1
TBDados.MoveNext
Loop
End If
End Sub
