'*****　データをダウンロード　***** Sub master_downroad() 'エラーが起きたら"Err_Handlarへジャンプする" On Error GoTo Err_Handlar 'DB切断プロシージャを呼び出す Call DBconnect(False) '処理1 strSQL = "SQL文" adoCn.Execute strSQL Call DBcut_off(True) MsgBox ("正常に終了しました") Exit Sub 'エラーが起きたらここへ飛ぶ Err_Handlar: 'ロールバック adoCn.RollbackTrans 'DB切断 Call DBcut_off(False) 'エラー内容メッセージ表示 MsgBox (Error$) 'エラー内容メッセージをデバッグ表示 Debug.Print Error$ 'SQL文をデバッグ表示 Debug.Print strSQL End Sub