powerbuilder9.0如何连接sql2000？

// Profile gc
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=gc;UID=;PWD='"

connect using sqlca;
if sqlca.sqlcode<>0 then
messagebox("数据库连接失败",sqlca.sqlerrtext)
halt
else
messagebox("提示信息","数据库连接成功")
end if

open(w_insertgr);