VB提示未找到方法或数据成员

代码如下：
Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst
For i = 0 To Adodc1.Recordset.RecordCount - 1 Step 1
If Adodc1.Recordset.Fields(1).Value = Combo1.Text Then
Text1.Text = Adodc1.Recordset.Fields(0).Value
Text2.Text = Adodc1.Recordset.Fields(1).Value
Text3.Text = Adodc1.Recordset.Fields(2).Value
Text4.Text = Adodc1.Recordset.Fields(3).Value
Text5.Text = Adodc1.Recordset.Fields(4).Value
Text6.Text = Adodc1.Recordset.Fields(5).Value
Text7.Text = Adodc1.Recordset.Fields(6).Value
Else
Adodc1.Recordset.MoveNext
End If
Next i
End Sub

"未找到方法或数据成员"VB提示 急！！！VB提示“未找到方法或数据成员” Help！！！VB提示“未找到方法或数据成员” VB未找到方法或数据成员 求助.在用VB编程时,提示"未找到方法或数据成员" 请VB高手看看这一断 它提示是未找到方法或数据成员 急求高手解决，VB程序出现“未找到方法或数据成员”提示 VB编程时提示未找到方法或数据成员，怎么解决？ vb 未找到数据成员或方法 combo 未找到方法或数据成员