如何用程序判断数据库是否已经被破坏？急！！！

Question

on error goto 100
'your code here
100:msgbox ("error",,"error")

Answer 1

on error goto Err1
set db=opnedatabase(数据库)
err1:
if err.number=X(数据库错误的代码) then
        msgbxo “数据库错误"
else
    if err<>0 then
        '继续
else
    msgbox err.number
end if
end if

Answer 2

使用错误判断
on error goto Err1
set db=opnedatabase(数据库)
err1:
if err.number=X(数据库错误的代码) then
   产生新的数据库连接   
else
    if err<>0 then
        '继续
else
    msgbox err.number
end if
end if