Private Sub Command1_Click()
Dim r As ADODB.Recordset
Set r = New ADODB.Recordset
Dim strsql As String
user = txtuser
pwd = txtpwd
strsql="select * from admin where name='"&user&"'and pwd='"&pwd&"'"
r.Open strsql
If r.EOF Then
MsgBox "登陆失败"
Else
MsgBox "登陆成功"
End If
End Sub

以上代码有编译错误可小弟是抄书本的 难道书本的例子都错吗 可小弟有看不出哪里有问题 还有这句出现红色提示 该如何该好 反正在调试时出现编译错误：语法错误 的 字样
由于初学 问题多多 希望高手能指点小弟 Q 395829654 请提上 vb 字样