Question

VB打开和关闭数据库

前面的设置我会，要打开和关闭的代码，两个按钮上的。

Answer 1

'打开数据库Private Sub Command1_Click()
Set db = OpenDatabase(App.Path + "/data.mdb")
Set rs = db.OpenRecorddset("select * from Users")
If Not (db Is Nothing) Then
MsgBox "打开数据库！"
Command2.Enabled = True
End If
End Sub '关闭数据库Private Sub Command2_Click()
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
MsgBox "关闭数据库！"
Command2.Enabled = False
End Sub