'链接数据库
set conn=CreateObject("ADODB.Connection")
ConnectionString="DSN=PostgreSQL30;DATABASE=数据库名（比如aap）;SERVER=服务器ip地址（比如172.168.1.2）;PORT=端口号（比如：5432）;UID=postgres;PWD=postgres;"
conn.Open ConnectionString
这里注意下，请先查看Administrative Tools/Data Sources (ODBC)中的system DSN中是否有PostgreSQL30这个服务，如果没有需要添加上，添加之前需要安装下PostgreSQL30
另外，如果你不能够确定你上面的链接语句是否正确，可以通过插入数据库检查点的时候，选择第二项，即【Specify SQL statement manual】通过选择Specify SQL statement manual选项，然后选择你指定的数据源，就会得到一个连接字符串，你可以将这个链接字符串copy过来
''查看连接是否已建立
'If conn.State=0 Then
' msgbox"failed"
' else
' msgbox"pass"
'End If
'建立空的记录集
Set rs=CreateObject("ADODB.RecordSet")
'设置SQL语句
sql="select cust_sku_no,description,cust_mfg_no,dept_no,asia_mgr,usa_mgr, usa_dir from cp_md_product where cust_sku_no=6300002"
'打开记录集
rs.open sql,conn
rs.MoveFirst
'循环取数，数据表列名为aaa/bbb/ccc/ddd/eee
'Do until rs.eof
A = rs("cust_sku_no").value
...
rs.next
loop