关于一个主表连两个附表的急问题！

Dim db As adodb.Connection
     Set db = New adodb.Connection
     db.CursorLocation = adUseClient
     db.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" & wjy
     Set adoPrimaryRS = New adodb.Recordset
     adoPrimaryRS.Open "SHAPE {select 标志,册号,序号,项目名称,单位,工程量,基价,合计,人工单价,人工合计,付材单价,付材合计,主材单价,主材合计,材料合计,机械单价,机械合计,人工系数,材料系数,机械系数,r1,r2,章序号,编制单位,工程名称,年度标志,文件号,ID from demo Order by ID} APPEND ({select 代号,材机名称,单位,定额价,数量,选择,ID from 定额主材调整} AS ChildCMD RELATE ID TO ID) AS ChildCMD,({select 代号,材机名称,单位,定额价,数量,ID from 定额付材调整} AS ChildCMD1 RELATE ID TO ID) AS ChildCMD1", db, adOpenStatic, adLockOptimistic     Set DataGrid1.DataSource = adoPrimaryRS
     Set grdDataGrid.DataSource = adoPrimaryRS("ChildCMD").UnderlyingValue
     Set grdDataGrid1.DataSource = adoPrimaryRS("ChildCMD1").UnderlyingValue
以上是我用VB6的编程，是用一个主表用ID控制的两个附表，附表中的“定额主材调整”能够正常显示，但是附表中的“定额付材调整”不能够正常显示，运行此程序没有出现错误。请帮助解决！