pb 判断数据库连接,该如何处理

pb 判断数据库连接
下面是一段连接数据库代码，当pb启动的时候，数据库是断开的，这时候要好久才能提示，怎么能让快速提示

//连接数据库
SQLCA.DBMS = "MSS Microsoft SQL Server"
SQLCA.ServerName = ls_servername
SQLCA.Database = ls_database
SQLCA.LogId = ls_logid
SQLCA.LogPass = ls_logpass
SQLCA.AutoCommit = false
SQLCA.DBParm = ""
 

Connect Using Sqlca ;
 
//  messagebox('sdfsd',SQLCA.SQLCode)
If SQLCA.SQLCode <> 0 Then
    MessageBox ("连接SQL SERVER数据库失败！", "连接SQL SERVER数据库('+ls_database+')失败~r~n~r~n错误信息如下："+&
    "~r~n~r~n"+SQLCA.SQLErrText )
end if

------解决方案--------------------
sqlca.DBMS ="ODBC"
sqlca.database ="FMDB"

sqlca.dbparm ="Connectstring ='DSN =FMDB;UID =sa;PWD =1234'"\\数据库名：sa;密码：1234

connect;

if sqlca.sqlcode<0 then
messageBox("错误信息","不能连接数据库",stopsign!)
return 
end if
------解决方案--------------------
MSSQL有这个问题的。