dim AdoConn as adodb.connection
dim AdoRs as adodb.recordset
dim sqlstr as string set AdoConn =new adodb.connection
sqlstr ="Your Connection String"
AdoConn.open sqlstr sqlstr ="Select * from DB"
set AdoRs = new adodb.recordset
AdoRs .open sqlstr,AdoConn,3,2AdoRs.fields就是列对象
可以获得Name,Type,Value等
dim AdoRs as adodb.recordset
dim sqlstr as string set AdoConn =new adodb.connection
sqlstr ="Your Connection String"
AdoConn.open sqlstr sqlstr ="Select * from DB"
set AdoRs = new adodb.recordset
AdoRs .open sqlstr,AdoConn,3,2AdoRs.fields就是列对象
可以获得Name,Type,Value等
dim rst as new adodb.recordsetrst.open "select * from table ",cnn,....
set fld =rst("fieldname")
debug.print fld.name
debug.print fld.type
debug.print fld.value
rst.close
set rst=nothing