VB容錯處理

if mrc.EOF=ture then                               'EOF為真時
    X=MsgBox ("查詢不到資訊，是否添加資訊"，4+64，"提示")     '彈出提示框
    if X=6 then                                         '點選是
        frmaddstudent.show                          '顯示新的窗體
    else                                                '否
        unlaod me                                   '退出窗體
    end if 
else                                                 ' EOF不為真
    mrc.moveFirst                                       '查詢第一條記錄
    Call viewData                                       '調用函數（封裝）
    mcbookmark=mrc.bookmark                             '做标記
    mrcclean=true
end if            

On Error GoTo DataErr                  '動态運作時
Dim num As Integer, var As Integer
num=10
var = num * 10000
Print var
Exit Sub
DataErr:                               '運作出現錯誤時
MsgBox “超出了整數的範圍”                 '提示
End Sub