Private SqlCon As New ADODB.Connection
Private SqlRes As New ADODB.Recordset
Private SqlCmd As New
Public loginname As String
Private Sub Form_Load()
SqlCon.Provider = "SQLOLEDB"
SqlCon.Open "User ID =sa;Password=123456;Initial Catalog=MBOOK;Data Source=WAK-20131119DGW"
SqlCmd.ActiveConnection = SqlCon
End Sub
Private Sub L_button_Click()
If R_radio.Value = True Then
= "SELECT * FROM TReader WHERE 借书证号=" + Trim(login_name.Text) + ""
SetSqlRes = SqlCmd.Execute
If Not SqlRes.EOF Then
If password.Text = SqlRes("密码") Then
loginname = login_name.Text
login.Hide
main.Show
Else
Call MsgBox("密码错误！")
End If
Else
Call MsgBox("登录名错误！")
End If
ElseIf A_radio.Value = True Then
= "SELECT * FROM Administrator "
Where 角色名 = "+Trim(login_name.Text)+"""
Set SqlRes = SqlCmd.Execute
If Not SqlRes.EOF Then
If password.Text = SqlRes("密码") Then
loginname = login_name.Text
login.Hide
main.Show
Else
Call MsgBox("密码错误！")
End If
Else
Call MsgBox("登录名错误！")
End If
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
SqlCon.Close

End Sub

1、有引用，而你未引用。
2、函数写错了，但VB语法检验没检到。

你这一大堆代码，无缩进，好难看，只能靠你自己了。哪一句报错。
如果是 DIM 部分，那就是引用。

好的，我去看看