Dim oConn_MDB_t As OleDbConnection = New OleDbConnection(sConn_MDB)
oConn_MDB_t.Open()
Dim tr As OleDbTransaction = oConn_MDB_t.BeginTransaction
Dim Cmd_Mdb_t As OleDbCommand = oConn_MDB_t.CreateCommand
 
For Each dr As DataRow In myEpisoden.Rows
strSQL = "INSERT INTO episode (ID, Bezeichnung, FileExtension) VALUES (" & _
            """" & dr(0) & """, " & _
            """" & Replace(dr(1), """", """""") & """, " & _
            """" & dr(2) & """)"
 
            Cmd_Mdb_t.CommandText = strSQL
             Cmd_Mdb_t.Transaction = tr
             Dim lRecordsAffected As Integer = Cmd_Mdb_t.ExecuteNonQuery()
 
next
tr.Commit()