Io faccio in questo modo per salvare in una Tbl uguale del DB.
'Salva i records della TblCodici nella TblCodiciRPT per la stampa:
codice:
'Esegue la connessione con il DataBase :
        With ConIN
            .ConnectionString = DataConnessione
            .CursorLocation = adUseClient   'tipo di cursore
            .Mode = adModeShareDenyNone     'nessuna limitazione
            .CommandTimeout = 15
            .Open
        End With
        
        OggIN.ActiveConnection = ConIN
        OggIN.CommandType = adCmdText
 
    'Prima di salvare Elimina i vecchi records dalla tabella - TblCodiciRPT:
        OggIN.CommandText = "Delete * From TblCodiciRPT"
        OggIN.Execute
                
        OggIN.CommandText = "INSERT INTO TblCodiciRPT " _
        & ("SELECT VoceN, Cod, Descriz FROM TblCodici;")
        OggIN.Execute

    'Chiude e cancella la connessione:
        ConIN.Close
        Set ConIN = Nothing