dim rs as adodb.recordset
rs.open "select * from tabs where 1 =2"
dim fld as field
for each fld in rs.fields
debug.print fld.name
next
rs.open "select * from tabs where 1 =2"
dim fld as field
for each fld in rs.fields
debug.print fld.name
next
调试欢乐多
select COLUMN_NAME,DATA_TYPE from INFORMATION_SCHEMA.COLUMNS where TABLE_NAME = tbName