diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb
index 0ac23b8c..f7b1170d 100644
--- a/SDL/mdm/frmMDMDatenverarbetiung.vb
+++ b/SDL/mdm/frmMDMDatenverarbetiung.vb
@@ -908,7 +908,7 @@ Public Class frmMDMDatenverarbetiung
             End If
 
             For Each f In Directory.GetFiles(dir)
-                If f.EndsWith(".csv") Then File.Copy(f, dirCSV & (New FileInfo(f)).Name)
+                If f.EndsWith(".csv") Then File.Copy(f, dirCSV & (New FileInfo(f)).Name, True)
             Next
 
             pbPloseAnh_Proz.Value = 100
@@ -967,7 +967,7 @@ Public Class frmMDMDatenverarbetiung
 
             Dim connectionString = ""
             If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
-                connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\DEVELOPER\f\FMZoll\MautD.accdb"
+                connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD_Test.accd"
             Else
                 connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\FMZOLL.verag.ost.dmn\f\FMZoll\MautD.accdb"
             End If
@@ -1075,7 +1075,7 @@ Public Class frmMDMDatenverarbetiung
 
 
             sqlstr = " select 
-                        'ASFINAG'
+                        'AT'
                         ,Adressen.AdressenNr
                         ,licenceplate
                         ,turnoverdate
@@ -1096,7 +1096,7 @@ Public Class frmMDMDatenverarbetiung
             Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
             Dim sqlstrAT As String = ""
 
-            sqlstrAT &= "select  'ASFINAG'
+            sqlstrAT &= "select  'AT'
                         ,Adressen.AdressenNr
                         ,licenceplate
                         ,turnoverdate
@@ -1131,7 +1131,7 @@ Public Class frmMDMDatenverarbetiung
 
             Dim connectionString = ""
             If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
-                connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\DEVELOPER\f\FMZoll\MautD.accdb"
+                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
@@ -1195,7 +1195,7 @@ Public Class frmMDMDatenverarbetiung
         Try
             Dim connectionString = ""
             If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
-                connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\DEVELOPER\f\FMZoll\MautD.accdb"
+                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
@@ -2680,7 +2680,7 @@ Public Class frmMDMDatenverarbetiung
     Function MautD_Befuellen(Optional kdNr = "") As Boolean
         Select Case LIEFERANT
             Case "PLOSE" : deleteMautD("PLOSE") : Return genPLOSEInsertMautD(dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString)
-            Case "ASFINAG" : deleteMautD("ASFINAG") : Return genASFINAGInsertMautAT(kdNr)
+            Case "ASFINAG" : deleteMautD("AT") : Return genASFINAGInsertMautAT(kdNr)
         End Select
         Return False
     End Function