ADO.NET - ODBC - テーブルにレコードを追加する(insert文の実行)

1. コネクションを取得
2. 問い合わせの実行
3. 問い合わせ結果をメモリ上の仮想表に設定する
4. 仮想表に対し、レコードを追加する
5. コミットする

' コネクション
Me.OdbcCommand.Connection = Me.OdbcConnection

' 問い合わせ文の設定
Me.OdbcCommand.CommandText = "select * from empno where empid = ?"

' バインド変数の設定
OdbcCommand.Parameters.Add("", Odbc.OdbcType.Char).Value = "9999"

' 検索
Me.OdbcDataAdapter = New OdbcDataAdapter(Me.OdbcCommand)
Me.OdbcCommandBuilder = New OdbcCommandBuilder(Me.OdbcDataAdapter)
Me.DataSet = New DataSet
Me.OdbcDataAdapter.Fill(Me.DataSet, "MYTABLE")

' 検索結果に対してinsertする
Dim DataRowCollection As DataRowCollection
DataRowCollection = DataSet.Tables("MYTABLE").Rows()

Dim RowArray() as String = {"999","999","999","999","999","999","999","999"}
DataSet.Tables("MYTABLE").LoadDataRow(RowArray, True)

' コミット
DataSet.AcceptChanges()