1. 首先建立对DAO对象库Microsoft DAO3.6 Object Library的引用.在VBA界面下: 工具-引用,选中”Microsoft DAO3.6 Object Library” 2. 代码: Public Sub1_1() Dim myDb As DAO.Database ‘定义DAO的Database(数据库)对象变量 Dim myTbl As DAO.TableDef ‘定义DAO的TableDef(数据表)对象变量 Dim myData As String ‘定义数据库名称变量 Dim myTable As String ‘定义数据表名称变量 ‘设置要