使用错误判断
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
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