数据库连接测试成功,运行不成功,该如何解决

数据库连接测试成功,运行不成功
pb与sql连,preview中测试成功
在工程中写代码
SQLCA.DBMS = "MSS Microsoft SQL Server"
SQLCA.Database = "video"
SQLCA.LogPass = "**"
SQLCA.ServerName = "."
SQLCA.LogId = "sa"
SQLCA.AutoCommit = False
SQLCA.DBParm = ""

connect using sqlca;
if sqlca.sqlcode=0 then 
open(w_main)
else
  messagebox("","数据库连接错误") 
end if

参数是从preview中粘贴过来的,运行显示数据库连接错误
不知道pb发什么神经,就是不给我连,气死我了,哪里的问题啊?

------解决方案--------------------
SQLCA.LogPass = "**" 
密码要改一下
------解决方案--------------------