vb 实时错误 3001

Dim Uname As String '声明局部变量,传递用户名
Dim Upassword As String '声明局部变量,传递密码
'检查用户名输入
If Combo1.Text = "" Then '未选择用户名
MsgBox "请输入用户名．", vbInformation + vbOKOnly, "错误" '给出错误信息
Combo1.SetFocus '焦点返回组合框
Exit Sub
End If
'传递变量
Uname = Combo1.Text
Upassword = txtPassword.Text
'核对用户名
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find "用户名称=""&Uname& """ '查找用户名

运行后输入用户名和密码后出现实时错误3001，数据库已经建好了，代码也没有错误，这是怎么回事啊？
谢谢高手指点！

用这个代码

Private Sub Command1_Click()
Dim Uname As String '声明局部变量,传递用户名
Dim Upassword As String '声明局部变量,传递密码
'检查用户名输入
If Combo1.Text = "" Then '未选择用户名
MsgBox "请输入用户名．", vbInformation + vbOKOnly, "错误" '给出错误信息
Combo1.SetFocus '焦点返回组合框
Exit Sub
End If
'传递变量
Uname = Combo1.Text
Upassword = txtPassword.Text
'核对用户名

If Adodc1.Recordset.State > 0 Then
Dim strName As String
strName = "用户名称='" & Uname & "'"
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find strName
End If
End Sub

if text1 = "" then msgbox "请输入您要查询的工号" + vbinformation exit sub end if dim msg as string adodc1.refresh adodc1.recordset.movefirst msg = text1 adodc1.recordset.find "工号 =" & "" & msg if adodc1.recordset.eof then msgbox "找到您要查询的相关记录"