Private Sub Formular_Click()
Dim dbsNorthwind As Database
Dim rstTabelle As Recordset
Dim rstHistorie As Recordset
 
Set dbsNorthwind = DBEngine.OpenDatabase(CurrentDb.Name) 'Macht Pfadeingabe 
' unnötig bzw. Änderung derselben bei Kopieren auf ein anderes Laufwerk
Set rstTabelle = dbsNorthwind.OpenRecordset("Datenquellen", dbOpenDynaset)
 
Dim a As String
Dim f As String
Dim h As String
 
Dim Pfad As String
 
Dim s_data_source_index As String
Dim s_data_source_type As String
Dim t_import_date As Date
Dim t_import_time As Date
Dim s_filename As String
Dim s_data_path As String
Dim b_import_process As Boolean
 
Dim s_DataFileName As String
Dim s_DataFolderSelect As String
Dim s_DataFolderName As String
 
 
rstTabelle.MoveFirst
Do Until rstTabelle.EOF = True
 
 
 
s_data_source_index = rstTabelle("s_data_source_index")
    s_data_path = rstTabelle("s_data_path")
 
    s_DataFolderSelect = s_data_path & "\*.*"
    s_DataFileName = Dir(s_DataFolderSelect)
 
With rstTabelle
.Edit
!s_filename = s_DataFileName
.Update
.MoveNext
End With
Loop
End Sub