Visual Basic.NET - Cargar MsFlexGrid

Hola a tod@s:
Como puedo cargar un MsFlexGrid, utilizando VB.Net y con base de datos SQL.

Muchas gracias de antemano.

Saludos
Ana

bueno el msflex se carga atraves de un for te explico con un ejemplito
el flex se llama miLista
pasa q en este ejemplo consulto un tabla de cultivos y los agrego como encabezado de mi MSFLEX los tipos de cultivo y luego agrego el año pa tener un mejor vista

MIlista.Clear()
MIlista.Rows = 2
AbrirBase() 'funcion de me conecta a mi BD
sql = "SELECT * FROM CULTIVO"
ConsultaMyBcadERs(sql)
If MyBcDERs.EOF Then
Exit Sub
Else
MIlista.Cols = Val(MyBcDERs.RecordCount) + 2
MIlista.set_TextMatrix(0, 0, "AÑO")
MIlista.set_ColWidth(0, 1000)
MIlista.set_TextMatrix(0, 1, "MES")
MIlista.set_ColWidth(1, 1000)
For i = 2 To 12
If Not MyBcDERs.EOF Then
MIlista.set_TextMatrix(0, i, MyBcDERs.Fields(4).Value)
MyBcDERs.MoveNext()
End If
Next
End If

Muchas gracias Lester, lo he modificado para poderlo utilizar para mi aplicación y me da un error en el MsFlexgrid, te pongo el codigo:

AbrirADO() 'Abrimos la base de datos
rst.Open("SELECT Pedido.CodigoPedido, Cliente.Nombre " & _
"FROM Cliente RIGHT JOIN Pedido ON Cliente.CodigoCliente = Pedido.CodigoCliente " & _
"WHERE (((Pedido.Semaforo)='" & vBloqueo & "'))" & _
" Order By Pedido.CodigoPedido;", cnn, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
If rst.EOF Then
Exit Sub
Else
Do Until rst.EOF
mfgDocumentos.set_TextMatrix(mfgDocumentos.Rows - 1, vColumna1, rst("CodigoPedido").Value) "AQUI me ERROR en el mfgDocumentos.Rows - 1"
mfgDocumentos.set_TextMatrix(mfgDocumentos.Rows - 1, vColumna2, rst("CodigoPedido").Value)
mfgDocumentos.set_TextMatrix(mfgDocumentos.Rows - 1, vColumna3, rst("Nombre").Value)
rst.MoveNext()
Loop

End If

CerrarADO() 'Cerramos la base de datos

El MsFlexgrid es de la version VB 6.0 (SP6). No se si tengo que añadir otro o que hacer.

Si sabes algo dimelo, aunque sigo buscando y no encuentro mucha informacion.

Muchas gracias

Saludos
Ana