1、准备一个文件夹，里面有一个数据库文件+一个表格文件。
2、接着打开wps表格里面的VB编辑器。
3、点击上方菜单栏的工具，选择引用。
4、在引用里面找到microsoft activex data objects 6.1 library，勾选一下，点击确定。
5、接着我们就可以先来创建一个sub过程。
6、然后我们在sub过程里面写入连接Access数据库的代码。
Dim con As ADODB.Connection‘声明对象变量
Set con = New ADODB.Connection’创建对象变量
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.Path & "\0715万瑞.mdb"‘建立连接
MsgBox "连接成功"
（MsgBox "连接成功"是自己加的用来显示是否成功连接）
7、写完后运行代码，可以看到已经成功连接了。
