vb对应所需名称或程序集合中，未找到项目

If Text1 = "" Then
 MsgBox "请输入用户名"
 Text1.SetFocus
 Exit Sub
End If
If Text2.Text = "" Then
 MsgBox "请输入密码"
 Text2.SetFocus
 Exit Sub
End If
Form1.Adodc.RecordSource = " select * from S_U WHERe Username='" & Trim(Text1) & "'"
Adodc.Refresh
If Adodc.Recordset.EOF = True Then
 MsgBox "用户名不存在"
 If trytimes >= 3 Then
  MsgBox "已尝试3次，系统关闭"
  End
 Else
  Exit Sub
 End If
End If
If Trim(Adodc.Recordset.Fields("password")) <> Trim(Text2) Then
 MsgBox "密码错误"
 trytimes = trytimes + 1
 Text2.SelStart = 0
 Text2.SelLength = Len(Text2)
 Text2.SetFocus
 If trytimes >= 3 Then
  MsgBox "已尝试3次，系统关闭"
  End
 Else
  Exit Sub
 End If
Else
 strUserName = Trim(Text1)
 Unload Me
 End If

求助。。已经卡住N天了，到底哪里错了

检查字段名称和表名称是否正确

另，错误出现在哪一行

If Trim(Adodc.Recordset.Fields("password")) <> Trim(Text2.Text) Then