2,462
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Sub Main()
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\Temp\db1.mdb;Uid=Admin;Pwd=;"
Set rst = cnn.OpenSchema(adSchemaColumns)
While Not rst.EOF
Debug.Print rst!TABLE_NAME, rst!COLUMN_NAME, rst!Description
rst.MoveNext
Wend
End Sub