Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 用户记录 where 用户名='" + Text1.Text + "'"
Adodc1.Refresh
If Text1 = "" Then
    MsgBox "请输入用户名"
    Text1.SetFocus
    Exit Sub
  End If
  If Text2 = "" Then
    MsgBox "请输入密码"
    Text2.SetFocus
    Exit Sub
  End If
 If Adodc1.Recordset.EOF = True Then
 MsgBox "该用户名不存在！"
 Exit Sub
 End If
  If Text1.Text <> "" And Text2.Text <> "" Then
    MsgBox "登录成功"
    Load MDIForm1
    MDIForm1.Show
    Unload Me
    End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End
End Sub





为什么，代码有错误吗

应该是代码中的控件不存在

怎么都是老问题，二个可能：
一、估计你在界面没有添加 Adodc1 控件，这个可能性最大。
二、没有连接数据库，Adodc1 必须首先连接数据库，Adodc1.RecordSource = "select * from 用户记录 where 用户名='" + Text1.Text + "'" 语句是连接数据库以后打开记录集。
Adodc1.ConnectionString = "连接数据库的语句"  ，这个语句是连接数据库的，没有连接数据库，就没有数据库对象，也有可能出现 424 错误。
至于具体的 “连接数据库的语句”根据数据库不同，连接语句是不一样的。