VB6.0中要求对象 急！！！！！！！！

总是提示Adodc1.RecordSource要求对象
Private Sub LblFind_Click()
If LblFind.Caption = "查询子项" Then
If TxtFather.Text = "" Then
MsgBox "请输入要查询的父项货号"
TxtFather.SetFocus
Exit Sub
End If
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & gFile & ";Mode=ReadWrite;Persist Security Info=False"
Adodc1.RecordSource = "select * from Parent,Item where Item.Item=Parent.ParentItem and Parent.ParentItem='" + Trim(TxtFatner.Text) + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
LblDelete.Enabled = False
MsgBox "该项目不是父项，重新输入"
TxtFather.SetFocus
TxtFather.SelStart = 0
TxtFather.SelLength = Len(TxtFather)
Else
Set TxtFather.DataSource = Adodc1
TxtFather.DataField = "Item"
Set LblName.DataSource = Adodc1
LblName.DataField = "Name"
Set LblColor.Data

VB6.0 中DATAREPORT对象使用 vb6.0实时错误424要求对象 跪求解决方法 vb6.0 中 ADO控件与ADO对象问题！~！~！ vb 要求对象。。。急 急求vb6.0 vb6.0中结束本次循环怎么实现??急!! VB要求对象.急!急!急! VB6.0中一个问题 VB6.0中，Text控件 帮忙啊！！VB6.0~急！！