求助一句话.

Question

当程序连接网路上面的一个access数据库出现错误时弹出网络连接不正常的提示.

Answer 1

MsgBox "网络连接不正常,不能连接到数据库!", vbCritical, "提示"

Answer 2

private sub ddd()
on error goto err: 
代码
err:
    if err.number<>0 then
         msgbox  "网络连接不正常,不能连接到数据库!", vbCritical, "提示"
         或者
         msgbox err.Description ,vbCritical,"提示"
     end if
end sub

Answer 3

MsgBox "网络连接不正常,不能连接到数据库!", vbCritical, "提示"

Answer 4

MsgBox "网络连接不正常,不能连接到数据库!", vbCritical, "提示"