1楼的。引用ado对象连接access，但是打开命令用的是ado控件的，可能会出问题哦
'改用ADO连接数据库：
'在工程中引用microsoft activex data objects 2.xx
Dim conn As New ADODB.Connection
With conn
If .State = adStateOpen Then .Close
.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "z:\db1.mdb;Mode=ReadWrite;Persist Security Info=False"
.Open
End With
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024