Dim sn As New ADODB.Recordset
sn.open "select * from table1", cnn
For i = 0 To sn.Fields.Count - 1
MsgBox sn.Fields(i).Name
Next
sn.close
sn.open "select * from table1", cnn
For i = 0 To sn.Fields.Count - 1
MsgBox sn.Fields(i).Name
Next
sn.close
用OpenSchema 方法倒是可以实现
去查MSDN里的这个方法的用法
Table1设为你的表