想用全代码操作 Access 数据库,首学会用代码打开和关闭数据库。
Sub OpenConn() '连接数据库过程
Set Db = CreateObject("ADODB.Connection")
Db.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 数据库路径 & ";Jet OLEDB:Database Password=;Persist Security Info=False;"
End Function
Sub CloseConn() '关闭数据库连接过程
Db.Close
Set Db = Nothing
End Sub