Visual Basic - comoseprograma un msflexgrid

como se programa un msflexgrid

Private Function encheGrid(datos As String, sql As String)

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim columa As Integer
Dim linea As Integer
Dim l_columna() As Single
Dim l_campo As Single

' abre una conexion
Set Cn = New ADODB.Connection
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & datos & ";" & "Persist Security Info=False"
Cn.Open

' Carga los Registros
Set rs = Cn.Execute(sql, , adCmdText)

' define lineas fijas igual a uno y no usa columnas fijas
MSFlexGrid1.Rows = 2
MSFlexGrid1.FixedRows = 1
MSFlexGrid1.FixedCols = 0

' Define el numero de lineas y columnas y crea una matrix con un total de registros a exibir
MSFlexGrid1.Rows = 1
MSFlexGrid1.Cols = rs.Fields.Count

********** parte1****

ReDim l_columna(0 To rs.Fields.Count - 1)

' exibe las cabeceras de las columnas
For colunna = 0 To rs.Fields.Count - 1
MSFlexGrid1.TextMatrix(0, columna) = rs.Fields(columna).Name
l_columna(columna) = TextWidth(rs.Fields(columna).Name)
Next columna

' exibe el valor de cada linea
linha = 1
Do While Not rs.EOF
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1

For columna = 0 To rs.Fields.Count -1
MSFlexGrid1.TextMatrix(linea, columna) = rs.Fields(columna).Value

' verifica o tamaño de los campos

l_campo = TextWidth(rs.Fields columna).Value)

If l_columna(columna) < l_campo Then l_columna(columna) = l_campo
Next columna

rs.MoveNext
linea = linea + 1
Loop

' recordset de la conexion
rs.Close
Cn.Close

' define el largo de las columnas de la grid
For columna = 0 To MSFlexGrid1.Cols - 1
MSFlexGrid1.ColWidth(columna) = l_columna(columna) + 240
Next columna
End Function
*****parte 2*****