用PB12.5联接数据的初始代码不对

用PB12.5连接数据的初始代码不对？
不是这个样子写么？
SQLCA.DBMS = "SYC Adaptive Server Enterprise"
SQLCA.Database = "testku"
SQLCA.LogPass = "123456"
SQLCA.ServerName = "drzbserver"
SQLCA.LogId = "ql"
SQLCA.AutoCommit = False
SQLCA.DBParm = "Release='12.5'"
connect using SQLCA
IF SQLCA.SQLCODE<>0 
THEN RETURN
------解决思路----------------------
先去 dataprofille 里 ，把数据库连上。 之后到preview 复制出来就行了