VB操作Oracle数据库

Dim num,ora
ora="ora"
set con=createobject("adodb.connection")
'con.open  "DRIVER={Microsoft ODBC for Oracle};Server=10.137.86.120;Uid=JXCS0115;Pwd=JXCS0115"
con.open "DSN=ora120;UID=JXCS0115;PWD=JXCS0115;DBQ=120 ;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BNF=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=F;CSR=F;FWC=F;FBS=64000;TLO=O;"
set record=createobject("adodb.recordset")
sql="select * from service"
record.open sql,con
Do
if(record("list")="0")then'//查找表格list列中有多少0
num=num+1
end if
record.movenext
loop until record.eof=true

record.close
set record=nothing
con.close
set con=nothing
msgbox num