给你个完整的吧。Dimrs1AsNewADODB.Recordset'定义数据集对象
DimcnnAsNewADODB.Connection'定义数据连接
PrivateSubConnx()'数据库连接下面的123.mdb换成自己的数据库
OnErrorResumeNext
cnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=123.mdb;PersistSecurityInfo=False"
IfErrThen
Err.Clear:cnn.Close
MsgBox"数据库连接出错!"
ExitSub
EndIf
EndSub
PrivateSubComman1_Click()
connx'打开数据库连接
rs1.Open"select*fromscwheresno='"&text1.text&"'andsco='"&text2.text&"'",cnn,adOpenKeyset,adLockOptimistic
Ifrs1.BOFThen
MsgBox"学员密码错误!"
Else
form2.show
EndIf
EndSub