Visual Basic - AYUDA con SHAPE

Saludos :

miren tengo este shape pero quiero saber si esta correcto GRACIAS

adodc1.Open "SHAPE {select numpart,descpart,secuen,cantid,unidades from LISTMAT where codigo ='" & ycodi & "'} AS LISTMATE " & _
"APPEND ({select codigo,descrip,kilos from COLORPAR } AS COLOPAR " & _
"APPEND ({select codigo,descrip,kilos from FORMUPAR } AS FORMPAR " & _
"APPEND ({select codpar,despar,canpar from TINTAPAR } AS TINTAPAR " & _
"APPEND ({select codigo,descrip,kilos from PASTAS } AS PASTA " & _
"RELATE numpart TO codigo) AS PASTAS", db, adOpenStatic, adLockOptimistic

es una relacio entre 5 tablas porfavor ayuda