MSFlexGrid

[Dogpound]

Bueno primeramente tenes que llenar un recordset con los datos que deseas mostrar en el Msflexgrid, despues especificas las columnas del msflexgrid y luego recorre el recordset(en el ejemplo rsfg) llenando los datos del mismo en el msflexgrid(en el ejemplo msfgExportar):

Dim i As Integer
Dim ex As String

i = 1
Do While Not rsfg.EOF

msfgExportar.Rows = msfgExportar.Rows + 1

msfgExportar.TextMatrix(i, 0) = IIf(IsNull(rsfg("Cod_Recibo")), "", Trim(rsfg"Cod_Recibo")))
msfgExportar.TextMatrix(i, 1) = IIf(IsNull(rsfg("Fec_Recibo")), "", Trim(rsfg("Fec_Recibo")))
msfgExportar.TextMatrix(i, 2) = IIf(IsNull(rsfg("Nom_Cliente")), "", Trim(rsfg("Nom_Cliente")))

rsfg.MoveNext
i = i + 1

Loop


Hojala te sirva

hasta luego.