Ich habe folgendes geschrieben:

Function ReadData()
    Dim i%, rsdata$, ID$, ARBPL$, Bereich$, X_Koordinate$, Y_Koordinate$, Ebene$
    Dim rs As Recordset
    
    
    rsdata = "([ID],[ARBPL],[Bereich],[X_Koordinate],[Y_Koordinate],[Ebene])" & vbNewLine
    
    With shtKoordination
        For i = 2 To .Cells(Rows.count, 1).End(xlUp).Row Step 1
        
            ID = .Cells(i, 1).Value
            ARBPL = .Cells(i, 2).Value
            Bereich = .Cells(i, 3).Value
            X_Koordinate = .Cells(i, 4).Value
            Y_Koordinate = .Cells(i, 5).Value
            Ebene = .Cells(i, 6).Value
            
            'Skript erweitern
            If (i = 2) Then
                rsdata = rsdata & "("
            Else
                rsdata = rsdata & "," & vbNewLine & "("
            End If
            
            'Skript basteln
            rsdata = rsdata & "'" & ID & "'" & "," & "'" & ARBPL & "'" & "," & "'" & Bereich & "'" _
            & "," & "'" & X_Koordinate & "'" & "," & "'" & Y_Koordinate & "'" & "," & "'" _
            & Ebene & "'" & ")"
                       
        Next
        rsdata = rsdata & ";"
    End With
    'Return rsdata
    'Set rs = ReadData()
    
End Function

Sowohl 'Return rsdata, als auch 'Set rs = ReadData() haben nicht funktioniert.

Ich versuche mir hier quasi aus meiner Tabelle mit etlichen Einträgen einen langen String/ Recordset zu bauen. Dabei kommt es aber dann zu einem Stapelspeicher FEHLER.
 

Den Recordset möchte ich in einem anderen Sub nutzen um ihn in ein SQL UPDATE Befehl einzubinden.

1.) Ideen für die Fehlerbehebung Stapelspeicher

2.) Wie kann ich den Return Value erstellen

3.) Wie greife ich von einem anderen Sub auf den ReturnValue dieser Funktion zu?
hätte zu 3.) sowas angedacht..
 

basisdaten = DataRead()