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