Private Function pfadfinden()
Dim dbfile As String
dbfile = App.Path + ("\db\datenbank.mdb")
Dim db As dao.Database
 
Set db = Workspaces(0).OpenDatabase(dbfile)
Dim rst As dao.Recordset
 
Set rst = db.OpenRecordset("Videos")
Dim i As Long
 
       Dim t As Long
       Dim n As Long
       n = 1
 
               MSFlexGrid1.TextMatrix(0, 0) = "Nr." 'Spalten bezeichnen
        MSFlexGrid1.TextMatrix(0, 1) = "Titel"   'Spalten bezeichnen
        MSFlexGrid1.TextMatrix(0, 2) = "Pfad"   'Spalten bezeichnen
 
For i = 0 To m_lngFileCount - 1 'anzahl gefundener dateien
rst.MoveFirst
    For t = 0 To rst.RecordCount - 1 'Anzahl der vorhandenen Datensätze
    If m_astrFiles(i) = rst.Fields(2) Then 
' Wenn gefundener Dateiname = Dateiname in der DB dann...
If Not rst.EOF Then
                rst.MoveNext
                Else
                GoTo weiter
            End If
 
 
 
    Else
' wenn Datei nicht vorhanden in Flexgrid schreiben
               titel = Split(m_astrFiles(i), ".avi") 'avi abschneiden
        titel1 = Split(titel(0), "\") 'Titel abschneiden
        Dim arrayanzahl As String
        arrayanzahl = UBound(titel1) 'letztes Stück herausbekommen
        i = i + 1
        MSFlexGrid1.Rows = n
        MSFlexGrid1.TextMatrix(i, 1) = titel1(arrayanzahl) 'Hier kommt der 
        ' Fehler
        MSFlexGrid1.TextMatrix(i, 2) = m_astrFiles(i)
        MSFlexGrid1.TextMatrix(i, 0) = i + 1
        n = n + 1
 
        GoTo weiter   
    End If
 
    Next
weiter:
Next
 
 
End Function