Private Sub cmdLogin_Click()
Dim SQL As String
Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\成绩管理.accdb;")
Dim rs_Login As New OleDb.OleDbCommand
Dim dr As OleDb.OleDbDataReader
If TextBox2.Text = "" Then
MsgBox("请输入密码", vbOKOnly + vbExclamation)
TextBox2.Text = ""
TextBox2.Clear()
Else
conn.Open()
SQL = "select 密码 from 学生信息 where 账号='" & Me.ComboBox1.Text & "'"
rs_Login.CommandText = SQL
rs_Login.Connection = conn
dr = rs_Login.ExecuteReader()
MsgBox(dr.Item(0).ToString())
If dr = TextBox2.Text Then '检验密码是否正确
Form2.Show()
Else
MsgBox("密码错误，请您重输", vbOKOnly + vbExclamation)
TextBox2.Text = ""
TextBox2.Clear()
rs_Login.Cancel()
End If
End If
End Sub