Hola Mira yo relleno un grid así:
For filagrid = 1 To numgrid
Plano =lo que quieras poner en plano
Tipo = lo que quieras poner
Cantidad = lo que quieras poner
Unidades = lo que quieras poner
Descrip = lo que quieras poner
NumCaja = lo que quieras poner
j = j + 1
Rellena_Grid (j) 'Rellena el grid que contiene la lista de materiales,....
Next filagrid
Private Sub Rellena_Grid(fila As Integer)
MSHFlexGrid1.TextMatrix(fila, 0) = plano_componente 'Codigo-Variante
MSHFlexGrid1.TextMatrix(fila, 1) = Tipo 'Tipo
MSHFlexGrid1.TextMatrix(fila, 2) = Cantidad 'Cantidad
MSHFlexGrid1.TextMatrix(fila, 3) = Unidades 'UM
MSHFlexGrid1.TextMatrix(fila, 4) = descr 'Descripción
MSHFlexGrid1.TextMatrix(fila, 5) = NumCaja 'Caja
MSHFlexGrid1.TextMatrix(fila, 6) = fila 'Numera
end sub
espero que te sirva