Visual Basic - COMO GRABAR UNA MSFLEXGRID

COMO PUEDO HACER ESTO, LO QUE PRETENDO ES GRABAR EN SQL CON DATOS CHAR E INT. OJALA QUE ME PUEDAN AYUDAR, AH DISCULPEN NO TENGO EL CODIGO EN ESTOS MOMENTOS QUE HE HECHO HASTA EL MOMENTO. OTRO PUNTO ES QUE TRABAJO EN EL FORMULARIO CON CAJAS DE TEXTO.

Tanto si quieres rellenar un Flex con datos de una BBDD como al revés, el procedimiento es muy simple.
El flex no es más que una matriz de N filas por M columnas. Cada posición del Flex (N,M) puedes tratarla como un TextBox. En conjunto, la mayoría de las propiedades del Flex son modificables en tiempo de ejecución. La ayuda de VB6 no es óptima, pero si tienes paciencia y haces tus pruebecillas, verás que es muy sencillo manejar el Flex a tu antojo.

1)Creas un Recordset con la data que desees pasar al MSFlexGrid.

2)Crear una rutina para crear las cabeceras y borrar el grid.
Private Sub Clear_flexGrid()
Dim I As Integer
flexGrid.Clear
flexGrid.Cols = 4
flexGrid.Rows = 1
With flexGrid
.ColWidth(0) = 300
.ColAlignment(0) = flexAlignCenterCenter
'---
.ColWidth(1) = 0
.TextArray(Fgi(0, 1)) = "Año"
.ColAlignment(1) = flexAlignRightCenter
'---
.ColWidth(2) = 800
.TextArray(Fgi(0, 2)) = "Producto"
.ColAlignment(2) = flexAlignRightCenter
'---
.ColWidth(3) = 3900
.TextArray(Fgi(0, 3)) = "Descripcion"
.ColAlignment(3) = flexAlignLeftCenter
End With
End Sub

Function Fgi(r As Integer, C As Integer) As Integer
Fgi = C + flexGrid.Cols * r
End Function

3)Crear subrutina para cargar el recordset
Private Sub Load_flexGrid()
Call Clear_flexGrid
I = 1
If rs.EOF And rs.BOF Then
flexGrid.Rows = flexGrid.Rows + 1
Else
txtUnidades = 0
wValorVta = 0
wValorIGV = 0
wValorTotal = 0
Do Until rs.EOF
With flexGrid
.Rows = .Rows + 1
.TextMatrix(I, 1) = rs!AÑO
.TextMatrix(I, 2) = rs!CODPRO
.TextMatrix(I, 3) = rs!Descripcion_Producto
End With