给你个完整的吧。Dim rs1 As New ADODB.Recordset '定义数据集对象
Dim cnn As New ADODB.Connection '定义数据连接
Private Sub Connx() '数据库连接 下面的123.mdb换成自己的数据库
On Error Resume Next
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=123.mdb;Persist Security Info=False"
If Err Then
Err.Clear:cnn.Close
MsgBox "数据库连接出错!"
Exit Sub
End If
End Sub
Private Sub Comman1_Click()
connx '打开数据库连接
rs1.Open "select * from sc where sno='"&text1.text&"' and sco='"&text2.text&"'", cnn, adOpenKeyset, adLockOptimistic
If rs1.BOF Then
MsgBox "学员密码错误!"
Else
form2.show
End If
End Sub