Hallo liebes Forum,

ich habe folgende Prozedur:

Set c = New ADODB.Connection
Set rs = New ADODB.Recordset
c.Open connectionString

With ThisWorkbook.Worksheets("Tabelle3").Activate

  rows= 1
  
    For Each item In arrTabellen

        Set rs = c.Execute("SELECT TOP 1 FROM " + item)      
        Range("D" & rows).CopyFromRecordset rs
        rows= rows + 1
        
    Next item

End With

An sich läuft es so, allerdings bekomme ich zwischendurch den Error:

Laufzeitfehler '-2147467259 (8004005)':

Die Methode 'CopyFromRecordset' für das Objekt 'Range' ist fehlgeschlagen

Wenn ich es dann ein paar mal wieder ausführe klappt es. Wie bekomme ich es hin, dass es immer durchläuft? 

In arrTabellen sind knapp 4.000 Einträge. Habe es bisher imemr mit 10 - 20 Testdaten getestet.