编译错误：未找到方法或数据成员(VB)

Public temp As String
Public temp1 As String

Private Sub Command_cancel_Click()
Unload Me
End Sub

Private Sub Command_ok_Click()
If Len(Text_user.Text) < 6 Or Len(Text_pswd) < 6 Then
MsgBox "请输入6位以上字符"
Else
Adodc1.RecordSource = "select * from users where username='" + Trim(Text_user.Text) + "' and pwd='" + Trim(Text_pswd.Text) + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
temp = Adodc1.Recordset("username")
temp1 = Adodc1.Recordset("rights")
MAINFORM.Show
Unload Me
Else
MsgBox "用户名密码错误，请重新输入", , "警告"
Text_user.Text = ""
Text_pswd.Text = ""
Text_user.SetFocus
End If
End If
End Sub

这段程序在编译时总显示Adodc1.RecordSource是未找到的方法，为什么？
求达人帮忙~
恩，如cwa9958所说，代码确实是拷过来的。我把控件删了又添加了一个adodc控

编译错误:未找到方法或数据成员 什么意思? 未找到方法或数据成员 VB未找到方法或数据成员 "未找到方法或数据成员"VB提示 急！！！VB提示“未找到方法或数据成员” vb 未找到数据成员或方法 combo Help！！！VB提示“未找到方法或数据成员” 求助.在用VB编程时,提示"未找到方法或数据成员" 请VB高手看看这一断 它提示是未找到方法或数据成员 vb问题“未找到方法或数据成员”,怎么办啊?急