在EXCEL的VBA中使用DAO方式及ADO方式连接ACCESS数据库示例代码
'*******************************************************DAO(DAO 3.6 Object)方式*******************************************
Public Function DAO_SHILIE() As Integer '在EXCEL的VBA中使用DAO方式连接ACCESS数据库示例代码
'要先引用工程库:Microsoft DAO 3.6 Object Library
Dim dbs As Database '申明数据库变量
Dim rs As Recordset '申明记录集变量