dim AdoConSql as new adodb.adoconnection
AdoConSql.open "连接SQL的连接字符串"
dim ADorsSQl as new adodb.recordset
adorsSQl.open "select name from table",adoConSQl,3,1do while not adorsSql.eof
combo1.add adorssql.fields(0)
adorsSql.movenext
loop
adorsSQl.close
set adorssql=nothing
adoconSql.close
set adoconSql=nothing