Visual Basic - Ayuda con un mshflexgird

Saludos FOristas

miren trato de hacer una grilla jerarquica pero esta me dices que se hace con SHAPE

pero como la ligo a una conexion de SQL ????

o como se hace el QUERY para SQL

Gracias espero me puedan ayudar

mira en el objeto connection..
cnn.Provider=\"MSDataShape\"
cnn.Properties(\"Data Provider\")=\"SQLOLEDB\"
cnn.Properties(\"Data Source\")= tu datasurce
cnn.Properties(\"Initial Catalog\")= \"NombreBase\"
cadena para enlazar al recordset
Strsql=\"SHAPE {Select * from clientes} as clientes \" & _
\" APPEND( { Select * from Pedidos } as Pedidos & _
\" RELATE IDCLiente to IDCliente \' campos de union ) as PEDIDOS
rs.open strsql,cnn, bueno todo lo otro... espero que sea esto lo que necesitases sino perdon por molestar.

Dim strCn As String
Dim adodc1 As adodb.Recordset

strCn = "Provider=MSDataShape;Data Source=" & gsServer & ";" & _
"Initial Catalog=" & gsDBase & ";" & _
"Connect Timeout=15;Data Provider=(SQLOLEDB)"

Set adodc1 = New adodb.Recordset

Dim strSh As String

strSh = "SHAPE {SELECT * FROM `formuenc`} AS encabe " & _
"APPEND ({SELECT * FROM `formupar`} AS parte RELATE " & _
"codigo TO npfmez) AS parte"

adodc1.Open strSh, strCn AQUI ERROR

pero me manda un error CLASE NO REGISTRADA

Gracias