sry hat mit der Formatierung grad nicht geklappt...

Hey Leute, ich hab nen Code gebastelt welcher mit einer Oracle SQL Abfrage BLOB-Daten von der Datenbank zieht und als .jpg in einem vorgegebenen Pfad ablegt. Das Funktioniert.

Was nicht funktioniert ist, das zu den Bildern die passenden Bildnamen vergeben werden. Der String für die Bildnamen wird mit einem zweiten SQL Statement aus mehreren tabellen zusammengesetzt. Dieses SQL Statement funktioniert auch und kann mit .GetString im Direktfenster per Debug.Print ausgegeben werden. (Im Direktfenster erscheinen in der passenden Anzahl wie es Bilder gibt auch die Bildnamen.)

Ich bin VBA Anfänger und würde mich über konkrete Hilfestellungen sehr freuen da ich nun schon seit ein paar tagen an diesem Problem sitze. Danke!

'//SETTINGS String bauen
    Dim ary As Variant
    Dim iCols As Integer
    Dim filep As String
    Dim varline As Variant
    varline = Array()
        
    rs2.Open BildString, cn, adOpenDynamic, adLockOptimistic
    mstream.Type = adTypeText
    mstream.Open
    varline = rs2.GetString
    Debug.Print (varline)
    MsgBox ("Bildnamen sind geladen")
    
    mstream.Close
    rs2.Close
    
    '//SETTINGS Bilder ziehen
    rs2.Open BildString, cn, adOpenDynamic, adLockOptimistic
    Do While Not rs2.EOF
        varline = rs2.GetRows
        
        rs.Open sqlAbfr, cn, adOpenDynamic, adLockOptimistic
        mstream.Type = adTypeBinary
        mstream.Open
                Do While Not rs.EOF
                                    
                    bildnummer = bildnummer + 1 'Zählfunktion für Rückmeldung
                    
                    mstream.Write rs.Fields("daten").Value
                    mstream.SaveToFile (filepath & rs2.GetString & ".jpg"), adSaveCreateOverWrite 'varline
                    
                    rs.MoveNext
                Loop
   Loop
    MsgBox ("Es wurden " & bildnummer & " Bilder in den vorgegebenen Ordner exportiert."), vbInformation
    bildnummer = 0
    
    rs.Close
    cn.Close
End Sub