Function EinlesenPfad(Tabelle As String)
Dim SelectedFile As String
Dim cnt As Integer
Dim dbs As DAO.Database
Dim rst As Recordset
 
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(Tabelle, dbOpenDynaset)
 
SelectedFolder = Me.Verzeichnis & "\"
 
  Do Until rst.EOF
    rst.Delete
    rst.MoveNext
  Loop
 
cnt = 1
SelectedFile = Dir(SelectedFolder)
 
Do While SelectedFile <> ""
 
  With rst
   .AddNew
   !Titel = SelectedFile
   !Pfad = Verzeichnis
   .Update
  End With
 
  Datei = SelectedFolder & SelectedFile
  Me!Bild108.Picture = Datei ' gewähltes Bild anzeigen
  Me.Bild108.Visible = True
  DoEvents ' Hier ***********************
  cnt = cnt + 1
  SelectedFile = Dir
 
Loop
 
rst.Close
Set dbs = Nothing
Err_ShowFiles:
Exit Function
End Function