得到access表字段名VBS脚本

 
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