你提到了2个错误，中断分别在哪句？建议修改查询方式：sql = "select * From Users where 用户名='" & Trim(Text1.Text) & "'"把While (Adodc1.Recordset.EOF = False)...wend改成if Adodc1.Recordset.recordcount>0 Then MsgBox "已有这个用户", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1.Text = "" Text2.Text = "" Text3.Text = "" Combo1.Text = "" Exit SubEnd If
