为什么到最后一个Adodc_body_general.Refresh时总是时通过时不通过呢？是不是VB6 BUG问题？急！！！

sqlstr = "driver={SQL SERVER};server=LYHSERVER;uid=sa;pwd=sa;connectiontimeout=0;database=yong2"
'打开表头
Adodc_header_general.ConnectionString = sqlstr
Adodc_header_general.CommandType = adCmdUnknown
Adodc_header_general.RecordSource = "select VB02.* from VB02 WITH (NOLOCK)  order by vb0201,vb0202,vb0203"
Adodc_header_general.Refresh
'打开表身
Adodc_body_general.ConnectionString = sqlstr
Adodc_body_general.CommandType = adCmdUnknown
Adodc_body_general.RecordSource = "select top 1  VB03.*  from VB03 with (nolock)"
Adodc_body_general.Refresh
when_the_header_repositionPrivate Sub when_the_header_reposition()
If Adodc_header_general.Recordset.eof = False Then
Adodc_body_general.ConnectionString = sqlstr
Adodc_body_general.CommandType = adCmdUnknown
'Adodc_body_general.RecordSource = "select VB03.* from VB03 with (nolock) where VB03.VB0301='" & Adodc_header_general.Recordset.Fields("VB0201").Value & "' and VB03.VB0302='" & Adodc_header_general.Recordset.Fields("VB0202").Value & "' and VB03.VB0303='" & Adodc_header_general.Recordset.Fields("VB0203").Value & "'"
Adodc_body_general.RecordSource = "select VB03.* from VB03 with (nolock) where VB03.VB0301='" & Adodc_header_general.Recordset.Fields("VB0201").Value & "' and VB03.VB0303='" & Adodc_header_general.Recordset.Fields("VB0203").Value & "'"
Adodc_body_general.Refresh
End If
End Sub
为什么到最后一个Adodc_body_general.Refresh时总是时通过时不通过呢？是不是VB6 BUG问题？