Oracle Excute Messagebox

  
 Select Case 문자열
            Case Insert    '등록
                If MsgBox("등록하시겠습니까?", MsgBoxStyle.OkCancel, "등록") = MsgBoxResult.Cancel Then
                    Exit Sub
                End If
            Case Search   '조회
                If MsgBox("조회하시겠습니까?", MsgBoxStyle.OkCancel, "조회") = MsgBoxResult.Cancel Then
                    Exit Sub
                End If
            Case Update    '수정
                If MsgBox("수정하시겠습니까?", MsgBoxStyle.OkCancel, "수정") = MsgBoxResult.Cancel Then
                    Exit Sub
                End If
            Case Delete    '삭제
                If MsgBox("삭제하시겠습니까?", MsgBoxStyle.OkCancel, "삭제") = MsgBoxResult.Cancel Then
                    Exit Sub
                End If
        End Select
        Me.Cursor = WaitCursor   ' 커서 상태

        SqlCommandText_Create(CRUD)      'SqlCommandText를 생성한다.
        SqlCommand_Execute(CRUD)     'Sql을 실행한다.

        Me.Cursor = DefaultCursor   '커서 상태 변경