Dim cn as adodb.connection
dim rs as adodb.recordset
set cn=new adodb.connection
set rs=new adodn.recordset
cn.open "..."
rs.open "select * from 表名 where 编号=1000",cn,1,1
do while not rs.eof
'msgbox rs.fields(0).value
rs.movenext
loop
rs.close
cn.close
set rs=nothing
set cn = nothing