关于连接数据库账户密码验证问题

xiaopuff

对于以下这段连接数据库的代码
$pro= ObjCreate("ADODB.Connection")
$RS = ObjCreate("ADODB.Recordset")
$pro.Open ("driver={SQL Server};server=192.168.0.251;uid=test;pwd=test;database=test") --此时输入的账户密码错误$RS.ActiveConnection = $pro
$sql='select top 1 dtTime1 FROM tLogs ORDER BY dtTime2 DESC '
$RS.Open($sql)
While (Not $RS.eof And Not $RS.bof)
$a=$RS.Fields (0).value
$y=StringMid($a,1,4)
$m=StringMid($a,5,2)
$d=StringMid($a,7,2)
$t1=StringMid($a,9,2)
$t2=StringMid($a,11,2)
$t3=StringMid($a,13,2)
MsgBox(0,"",$y & '/' &$m & '/' & $d & ' ' & $t1 & ':' & $t2 & ':' & $t3)
MsgBox(0,"",$a)
$RS.movenext
        WEnd
        $RS.close
        $pro.close

我建立一个登陆框，把账户密码作为参数传送到数据库连接的open函数，我的本意是想加个判断，如果在登陆框输入的数据库用户，密码错误，给予一个重复输入的提示，但是如果输入的账户密码错误，open函数就会发生错误，程序就会直接报错，停止运行，也无法获取OPEN函数的返回值，无法进行判断。有什么办法可以解决？