Public Sub Dateipfade()
Dim RS As Object
  Set RS = CurrentDb.OpenRecordset("select Pfad1 from tblPfade")
If RS.RecordCount > 0 Then
    'mindestens eine Zeile wurde ausgelesen
    'weiterer Code
    RS.MoveFirst
    MsgBox RS(0).Name & " = " & RS(0).Value
Else
    'kein Datensatz ausgelesen
    'weiterer Code
    MsgBox "Keine Pfade gefunden"
End If
End Sub