set adoCN =createobject("ADODB.CONNECTION")
set strCnn =createobject("ADODB.Recordset")
set rstSchema =createobject("ADODB.Recordset")
Dim I
dim n
str1 = "DBQ=E:/data1.MDB;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
adoCN.Open str1
rstSchema.open "select * from table1",adoCN,1,1
n = rstSchema.Fields.Count - 1
for i =0 to n
out = out & vbCr & rstSchema.Fields(i).Name
next
rstSchema.Close
adoCN.Close
MsgBox out