pb8如何与sql2000数据库连接？

pb9以前链接sql2000非常简单的！
在应用中写：
SQLCADBMS = "MSS Microsoft SQL Server"
SQLCADatabase = "你的数据库名"
SQLCALogPass = "密码"
SQLCAServerName = "服务器地址，可以使IP，可以是名称"
SQLCALogId = "sa登录用户"
SQLCAAutoCommit = False
SQLCADBParm = ""
connect;
IF SQLCASQLCode <>0 THEN
MessageBox("错误提示", '数据库连接失败，请确认数据库是否运行或者网络是否连接！')
return;
END IF
open(w_login)

---