ado数据访问

dim cn as connection
dim rs as recordset

set cn=new connection
cn.open cnstr
set rs=new recordset
rs.open table or sqltxt ,cn,adopenforwardonly,adlockreadonly
if  not  rs.eof  then
do until rs.eof

loop
end if