ADO数据库读取有很多办法，在这告诉你一个比较简单的。
Dim db As Database '在ACAD VBA中，ACAD图形数据库也用Database类，你须在工程中引用Microsoft DAO 3.51 Object Library库，并将其优先级提高到仅次于AutoCAD类型库。
Dim rst As Recordset 'rst为数据库记录集对象
Set db=DBEngine.Workspaces(0).OpenDatabase(FileName) 'FileName为你的*.mdb数据库文件名(全路径)。
Set rst = db.OpenRecordset("SELECT * FROM Table1;") 'Table1为数据库的表名。
此后，你可以用rst.MoveFirst,rst.MoveNext,rst.MoveLast等方法移动记录指针，用rst.Fields(FieldsName).Value获取FieldsName字段的内容。
Dim cn As Connection
Set cn = New Connection
cn.CursorLocation = adUseClient
cn.Open "ROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" &_
YourMdbPathName
Dim cmd As New ADODB.Command
Set cmd.ActiveConnection = cn
cmd.CommandText = YourSQLString
Dim rst As New ADODB.Recordset
rst.CursorLocation = adUseClient
rst.Open cmd,adOpenStatic,adLockBatchOptimistic
然后，你就可以和使用DAO的记录集相似的方法使用ADO的记录集rst了
置顶卡
