Private Sub Command1_Click()
If Trim(Text1.Text) <> "" And Trim(Text2.Text) <> "" Then

 Adodc1.RecordSource = "select * from 用户表 where username='" + Trim(Text1.Text) + "' and passwrod='" + Trim(Text2.Text) + "'"

 Adodc1.Refresh
   If Adodc1.Recordset.RecordCount = 1 Then
    Adodc1.Recordset.Close
    frm2.Show
    Me.Hide
   Else
    MsgBox "错误的账号或密码！", vbInformation + vbOKOnly, "错误信息"
    Text2.Text = ""
    Text1.SetFocus
   End If
ElseIf Text1.Text = "" Then

 MsgBox "账号不能为空！", vbInformation + vbOKOnly, "错误信息"

 Text1.SetFocus
Else

 MsgBox "密码不能为空！", vbInformation + vbOKOnly, "错误信息"

 Text2.SetFocus
End If
End Sub



红色为出错部分，显示ADODC1 FORM子句语法错误

出错的语句是Adodc1.Refresh

那就检查前面那句吧。
Adodc1.RecordSource = "select * from 用户表 where username='" + Trim(Text1.Text) + "' and passwrod='" + Trim(Text2.Text) + "'"

我双击ADODC1 ，代码窗口不出来，弹出  用户类型未定义      求指教

没引用 ADODC 库？？？
还是没放 ADODC 控件？

放ADODC控件了啊，与数据库连接测试已成功，一双击ADODC控件就弹出 用户类型为定义

你的单引号是在英文输入法下输入的吗