SQLの実行

	'TNSNAMES.ORAを使用する
	Dim oradb As String = "Data Source=grot3.com.world;User Id=grot3;Password=grot3;"
	'コネクト用のオブジェクト準備
	Dim conn As New OracleConnection(oradb)

	'SQL発行準備
	Dim Cmd As New OracleCommand("", conn)
	Try
		conn.Open()
		'トランザクション開始
		Dim Trans As OracleTransaction = Nothing
		Trans = conn.BeginTransaction(IsolationLevel.ReadCommitted)
		Cmd.Transaction = Trans

		'SQLの実行
		Cmd.CommandText = "INSERT INTO 〜"
		Cmd.ExecuteNonQuery()

		'トランザクション終了
		Trans.Commit()

		'使ったオブジェクトをクローズする
		conn.Close()
	Catch ex As OracleException
		MsgBox(ex.Message.ToString, MsgBoxStyle.Critical, "エラー")
	End Try