office办公软件入门基础教程在通过VBA程序访问Access数据库时，首先需要连接数据库。在VBA中，使用ADO对象模型可以连接到各种不同类型的数据库，这都是通过设置Connection对象的相应属性完成的。Connection对象表示打开的连接到数据库的链接。无论对数据库进行何种操作，首先需要完成的都是生成该对象以连接到数据库。本文介绍通过设置Connection对象属性来连接Access数据库的方法。
1、新建Excel工作簿，打开Visual Basic编辑器，在工程资源管理器中添加一个模块，在“代码”窗口中输入程序代码，。具体的程序代码：
Sub ConnectToAccess()
Dim conn As New ADODB.Connection
conn.Provider="Microsoft.Jet.OLEDB.4.0" '指定Connection对象提供者的名称
conn.ConnectionString="data source="&_ThisWorkbook.Path&"\dbSource.mdb" '指定Connection对象的连接字符串
conn.Mode=adModeReadWrite '指定数据库读写模式
conn.Open '打开到指定数据库的链接
Debug.Print conn.ConnectionString '输出连接字符串
Debug.Print conn.ConnectionTimeout '输出连接超时时间
Debug.Print conn.Mode '输出数据库读写模式
Debug.Print conn.Provider '输出提供者名称
Debug.Print conn.Version '输出ADO版本号
Debug.Print conn.State '输出连接当前开启状态
End Sub
图1 插入模块并输入程序
2、按F5键运行"ConnectToAccess"过程，此时在“立即窗口”中将会获取程序运行结果，。
图2 “立即窗口”输出结果
提示
这里要注意的是，在"ConnectionToAccess"过程中指定ConnectionString属性时，只给出了data source相关内容，但是在输出该属性时，却获取了很多内容，其中就包含Provider属性的相关信息。
