vba如何连接db2数据库

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 ").Value

rs.movenext

wend

 rs.close 

Setrs=Nothing             '清放连接