Ayuda con el Flex Grid

[fede_rosario]

haber lo que yo hago es esto
le creo una mascara el flex osea como quiero que aparesca ,asi:
Private Sub configurar_grilla()
With MSFlexGrid1
.Clear
.Rows = 2
.FixedRows = 1
.FixedCols = 0
.Cols = 4
.Rows = 2
.FormatString = "Código |Descripción |Cantidad |Proveedor |Total/Articulo "
End With
End Sub
la cual la podes llamar cuando inicias el form en form_load ej

Private Sub Form_Load()
configurar_grilla
End Sub

despues para llenar el flex con los datos en mi caso hago una consulta la vuelco a un recordset u se la asigno al flex ej

Dim rsbal As New ADODB.Recordset
Dim cod_ocup As Integer
mensaje.Visible = True
lbldatos.Visible = True
lbldatos.caption = "Espere ...Procesando Datos "
DoEvents
txttotal.Text = ""
MSFlexGrid1.Clear
If fami Then
configurar_grilla2
sql = "select * from cliente order by idcliente"
rsbal.Open sql, cn, adOpenKeyset, adLockOptimistic
If rsbal.RecordCount < 1 Then
GoTo sale:
End If
Cant_reg = rsbal.RecordCount
rsbal.MoveFirst
Do While Not rsbal.EOF
cod_ocup = Mid(rsbal("ocup"), 1, 1)
MSFlexGrid1.AddItem rsbal.Fields("idcliente") & vbTab & rsbal.Fields("Apellido") & cod_ocup & vbTab & rsbal.Fields ("documento")
rsbal.MoveNext
Loop
rsbal.Close
txttotal.Text = Cant_reg
impfac = True
End If

fijate alomejor me explico muy a los apurones y no entendiste nada cualkier cosa avisa todo bien, exitos fede