求教一个查询输出问题

窗体有一个adodc1控件，没有表格控件
Private Sub Command1_Click()
If Text1.Text = "" Then
    MsgBox "请您输入查询条件", 32, "房源管理系统"
     Exit Sub
Else
    = adCmdText
   Adodc1.RecordSource = "select * from user where username='" & (Text2.Text) & "'"
   Adodc1.Refresh  《《------这里出错了！form子语句法错误，对象Refresh的方法IADODC方法失败，这句删除可以往下运行但是下面出错
If Adodc1.Recordset.RecordCount > 0 Then   《《------上面删除，这里出错了。对象变量或with变量块未设置，实时错误‘91’
   Text2.Text = Adodc1.Recordset.Fields("username")
   Text3.Text = Adodc1.Recordset.Fields("userpwd")
   Combo1.Text = Adodc1.Recordset.Fields("userqx")
Else
    MsgBox "没有您要查找的员工,请您确认后重新输入", 32, "房源管理系统"
   End If
   End If
End Sub

我是想通过text1的值查找这个用户名把这个用户的 名字，密码，权限分别显示在texe2，text3，combo1中。