VBA—使用ADO连接ACCESS数据库

1 在VBE界面中工具—引用

   勾选MicrosoftActiveX Data Objects  x.x  Library

2 连接代码

 Sub test()

 Dim

 conn As New ADODB.Connection

’ Conn为自定义名称可换

 conn.Open

"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\data\Adata.accdb"    

‘这里使用SQL对数据进行操作  D:\data\Adata.accdb 为文件名

’ 常用 CONN.OPEN    CONN. EXECUTE   CONN..CLOSE

conn.Close

End

Sub