用ADODim Rs as New Adodb.RecordSet
Dim I as integerRs.open "TableName","Driver={Microsoft Access Driver (*.mdb)};dbq=Database.mdb"for i=0 to Rs.fileds.count-1
Msgbox Rs.Fields(i).Name
Next
Dim I as integerRs.open "TableName","Driver={Microsoft Access Driver (*.mdb)};dbq=Database.mdb"for i=0 to Rs.fileds.count-1
Msgbox Rs.Fields(i).Name
Next
更正:For I = 0 To Rs.Fields.Count - 1