Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入用户名"
End If
If Text3.Text = "" Then
MsgBox "请输入密码"
End If
Dim cn As New ADODB.Connection
cn.Open "provider=microsoft.jet.OLEDB.4.0;Data source=教师工资数据库.mdb;"
Dim rs As New ADODB.Recordset
rs.ActiveConnection = "provider=microsoft.jet.OLEDB.4.0;Data source=教师工资数据库.mdb;"
abc = "select * from 出勤率查询表 where 登陆账号='" + Text1.Text + "' and 登陆密码='" + Text3.Text + "'"
rs.Open abc %这句会有黄色标志
If rs.EOF = False Then
Unload Me
Form3.Show
Else
MsgBox "密码不正确，请重新输入"
y = y + 1
Text1.Text = ""
Text3.Text = ""
End If
If y >= 3 Then
MsgBox "输入错误超过三次，退出本系统"
End
cn.Close
End If
End Sub

rs.Open abc, cn, adOpenKeyset, adLockOptimistic

呵，原来VB的数据库开发这么头疼。俺默默飘过吧。