>>925　自分の場合のテンプレートは以下の通り

接続準備
'カレントフォルダのbase.accdbに接続する
Dim cn As OleDb.OleDbConnection = New OleDb.OleDbConnection( _
"provider=Microsoft.ACE.OLEDB.12.0;" _
& "Data Source=" & apppath & "\base.accdb;")
Dim SQLCm As OleDb.OleDbCommand = cn.CreateCommand
テーブル接続
'テーブルの接続および一時データ格納用のデータレコードの準備
dAdp = New OleDb.OleDbDataAdapter("SELECT * FROM " & accdbtable & " WHERE patternid =" & selectptn, cn)
dAdp.Fill(dSet, "a_settings")
dTblasset = dSet.Tables("a_settings")
データテーブルへデータを入れた後に・・・・SQLで流し込む
'インサート用SQL文組み立てと実行
Dim SQL As String = ""
cn.Open()
For Each Row As DataRow In dtbl.Rows
SQL = "INSERT INTO " & accdbrepay & "(patternid, assetid, repayday, repaycost, nendo, assettype) VALUES ("
SQL &= Row("patternid") & ", " 'パターンID
SQL &= "'" & Row("assetid") & "', " '固定資産GUID
SQL &= "'" & Row("repayday") & "', " '減価償却年月日
SQL &= "'" & Row("repaycost") & "', " '減価償却費
SQL &= "'" & Row("nendo") & "', " '年度
SQL &= Row("assettype") '固定資産タイプ
SQL &= ")"
'データベースへ反映
SQLCm.CommandText = SQL
SQLCm.ExecuteNonQuery()
Next
SQL = Nothing