diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb
index 283e22ac..92484eeb 100644
--- a/SDL/mdm/frmMDMDatenverarbetiung.vb
+++ b/SDL/mdm/frmMDMDatenverarbetiung.vb
@@ -2394,24 +2394,24 @@ Public Class frmMDMDatenverarbetiung
 
             Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
 
-            Dim connectionString = ""
-            If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
-                connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD_Test.accdb"
-            Else
-                connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD.accdb"
-            End If
+            'Dim connectionString = ""
+            'If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+            '    connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD_Test.accdb"
+            'Else
+            '    connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD.accdb"
+            'End If
 
-            Dim con As New OleDbConnection(connectionString)
-            Dim cmd As New OleDbCommand
-            Dim var1 As String
+            'Dim con As New OleDbConnection(connectionString)
+            'Dim cmd As New OleDbCommand
+            'Dim var1 As String
 
-            Dim adapter As OleDbDataAdapter = New OleDbDataAdapter()
-            Dim reader As OleDbDataReader = Nothing
+            'Dim adapter As OleDbDataAdapter = New OleDbDataAdapter()
+            'Dim reader As OleDbDataReader = Nothing
 
 
 
             If dt IsNot Nothing Then
-                con.Open()
+                'con.Open()
                 For Each r In dt.Rows
                     Try
                         'Zeitstempel 
@@ -2421,37 +2421,37 @@ Public Class frmMDMDatenverarbetiung
 
 
 
-                        Dim SQLQuery = "INSERT INTO tblMautbericht (Datenquelle,[Customer No],[Licence Plate Number],[Transaction Date],[Transaction Country],[Product description],[Card Number],[Entry Terminal],[Exit Terminal],[Nett Amount],[VAT Amount],[Total Amount]) VALUES (@P1,@P2,@P3,@P4,@P5,@P6,@P7,@P8,@P9,@P10,@P11,@P12) "
-                        '  "SELECT * FROM DBParent WHERE P_ID = " & UniqeID & ";"
-                        Using Command As New OleDbCommand(SQLQuery, con)
+                        '    Dim SQLQuery = "INSERT INTO tblMautbericht (Datenquelle,[Customer No],[Licence Plate Number],[Transaction Date],[Transaction Country],[Product description],[Card Number],[Entry Terminal],[Exit Terminal],[Nett Amount],[VAT Amount],[Total Amount]) VALUES (@P1,@P2,@P3,@P4,@P5,@P6,@P7,@P8,@P9,@P10,@P11,@P12) "
+                        '    '  "SELECT * FROM DBParent WHERE P_ID = " & UniqeID & ";"
+                        '    Using Command As New OleDbCommand(SQLQuery, con)
 
-                            Command.Parameters.AddWithValue("@P1", r(0))
-                            Command.Parameters.AddWithValue("@P2", r(1))
-                            Command.Parameters.AddWithValue("@P3", r(2))
-                            Command.Parameters.AddWithValue("@P4", r(3))
-                            Command.Parameters.AddWithValue("@P5", r(4))
-                            Command.Parameters.AddWithValue("@P6", r(5))
-                            Command.Parameters.AddWithValue("@P7", r(6))
-                            Command.Parameters.AddWithValue("@P8", r(7))
-                            Command.Parameters.AddWithValue("@P9", r(8))
-                            Command.Parameters.AddWithValue("@P10", CDbl(r(9)))
-                            Command.Parameters.AddWithValue("@P11", CDbl(r(10)))
-                            Command.Parameters.AddWithValue("@P12", CDbl(r(11)))
+                        '        Command.Parameters.AddWithValue("@P1", r(0))
+                        '        Command.Parameters.AddWithValue("@P2", r(1))
+                        '        Command.Parameters.AddWithValue("@P3", r(2))
+                        '        Command.Parameters.AddWithValue("@P4", r(3))
+                        '        Command.Parameters.AddWithValue("@P5", r(4))
+                        '        Command.Parameters.AddWithValue("@P6", r(5))
+                        '        Command.Parameters.AddWithValue("@P7", r(6))
+                        '        Command.Parameters.AddWithValue("@P8", r(7))
+                        '        Command.Parameters.AddWithValue("@P9", r(8))
+                        '        Command.Parameters.AddWithValue("@P10", CDbl(r(9)))
+                        '        Command.Parameters.AddWithValue("@P11", CDbl(r(10)))
+                        '        Command.Parameters.AddWithValue("@P12", CDbl(r(11)))
 
-                            If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then Command.ExecuteNonQuery()
-                            Command.Dispose()
-                        End Using
+                        '        If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then Command.ExecuteNonQuery()
+                        '        Command.Dispose()
+                        '    End Using
 
                     Catch ex2 As System.Exception
                         MsgBox("err: " & ex2.Message & ex2.StackTrace)
 
-                    Finally
-                        If reader IsNot Nothing Then reader.Close()
+                        'Finally
+                        '    If reader IsNot Nothing Then reader.Close()
                     End Try
 
 
                 Next
-                con.Close()
+                'con.Close()
             End If
             pic.Visible = True
             Return True