在Word中，我们可以通过使用ADO来提取Access数据的方法，下面是实现的方法。
①配置系统
系统软件: Microsoft Windows 9x/NT/2000；Microsoft Word 2000。
样例数据库：“C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb”，Office 2000中包含的例子。
引用ADO：按Alt+F11进入Visual Basic编辑器，执行命令“工具”->“引用”，在弹出的引用窗体中选择“Microsoft ActiveX Data Objects 2.1”或更高版本。
②代码书写及诠释
进入Visual Basic编辑器，创建过程“Sub Word_ADO()”，其代码如下：
Sub Word_ADO()
'输入表格标题
Title = InputBox(vbCrLf & vbCrLf & "请输入表格标题：", "表格标题", "XX公司产品报价单")
If Title = "" Then Title = "XX公司产品报价单"
'步骤1：建立数据连接cnn
'打开连接,示例数据库：C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb
Set cnn = New ADODB.Connection
cnn.Provider = "Microsoft.jet.oledb.4.0"
cnn.Open "C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb"
'步骤2：用SQL语句创建记录集rs
Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
SQL = "select 产品名称,单位数量,单价,库存量 from 产品 where 单价>80.00"