http://jingyan.baidu.com/article/22a299b5185fd29e19376af2.html
dim conn as variant
Dim rs As variant
Set conn = CreateObject("ADODB.Connection")
conn.Open "DSN=ERP;UID=qothpr;PWD=ktron"
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM UTCRCP",conn
While not rs.eof
Print rs("UTCRDS ").Valuers.movenext
wend
rs.close
Setrs=Nothing '清放连接