Office: (Office 2016) VBA ADO - mehrere Einträge in Recordset mit einmal in DB schreiben

Hallo zusammen, (bin Recordset Anfänger)

wie im Titel schon steht möchte ich ein gesamtes Recordset mit mehrern Einträgen in eine DB sschreiben, damit man sich das zeilenweise in DB schreiben sparen kann.

zu 1)
Kann man in einem Recordset genauso durchsuchen und bestehende Einträge ändern wie in einem Array???

zu 2)
Aktuell generiere ich viel 1000de Zielen in einem Array die in eine DB geschrieben werden sollen.
Nun habe ich überlegt das Array mit einem Recorset auszutauschen, damit "quasi" gleich das Paket für die DB fertig ist.

Nun wollte ich fragen ob es möglich ist ein Recordset mit mehrern Einträgen in einem Rutsch in eine DB zu schrieben und sich eine Schleife, die sich durch jede Zeile quält, ersparen kann? Wenn ja, hättet ich ein Codebeispiel?


Hier mein Testcode. Leider wird hier nur eine Zeile ins SQL geschrieben.
Kann man ein gesamtes Recordset in eine DB schreiben ????

Code:

Option Explicit

Sub WriteInDb()

'Variablen deklarien
    Dim adoDbConnection As ADODB.Connection
    Dim adoDbRecordSet As ADODB.Recordset
    Dim strConnectionString As String
    Dim test As Variant
    
    Dim strSqlStatement As String
    Dim i As Integer

'Initialisieren
    Set adoDbConnection = New ADODB.Connection
    Set adoDbRecordSet = New ADODB.Recordset
    
'Verbindungsstring einrrichten
    strConnectionString = _
        "Provider=MSDASQL;" & _
        "Driver=MySQL ODBC 8.0 Unicode Driver;" & _
        "Server==.........;" & _
        "Database=.........;" & _
        "Uid=.........;" & _
        "Pwd=........."
         
    adoDbConnection.ConnectionString = strConnectionString

'Wert in DB schreiben
    i = 3
    With ActiveSheet
        strSqlStatement = _
            "INSERT INTO test.dummy (id, vorname, nachname)" & _
            "VALUES (""" & .Cells(i, 1) & """, """ & .Cells(i, 2) & """, """ & .Cells(i, 3) & """);"
    End With

    With adoDbRecordSet
        .Source = strSqlStatement
        .ActiveConnection = adoDbConnection
        .CursorType = adOpenDynamic
        .Open
    End With

'Close stuff
    adoDbConnection.Close
    
    Set adoDbConnection = Nothing
    Set adoDbRecordSet = Nothing

End Sub