—CODICE DA ME SCRITTO
Public Function writeDataTableToMdbFile(ByVal strSql As String, ByVal connMDB As OleDb.OleDbConnection, _
ByVal dTable As DataTable) As Integer

‘ strSql = Nome Tabella destinazione DB – Utilizzata anche per assegnare il nome alla DataTable
‘ connMDB = OleDbConnection
‘ dTable = DataTable – Popolata con il risultato di elaborazioni precedente (di 2 o più DataTable)
‘ La struttura dei campi record è identica alla tabella di destinazione

‘ DB di destinazione File ACCESS 2003
‘ DB Sorgenti VARI

dTable.TableName = strSql ‘ Assegno il nome al DataTable

Dim tbAdapter As New OleDb.OleDbDataAdapter(“select * from ” & strSql, connMDB) ‘ db vuoto

tbAdapter.AcceptChangesDuringFill = True

Dim ds_temp As New DataSet()
tbAdapter.FillSchema(ds_temp, SchemaType.Source)
tbAdapter.Fill(ds_temp, strSql)

‘ Setto come nuove tutte le righe del DataSet

Dim riga_tmp As DataRow
For Each riga_tmp In ds_temp.Tables(strSql).Rows ‘ Nessun Record Esce subito
Try
riga_tmp.SetAdded()
Catch ex As Exception

End Try

Next

ds_temp.Merge(dTable)

Debug.Print(ds_temp.Tables(strSql).Rows.Count) ‘ Verifico se il DataSet è Popolato (CIRCA 19000 RECORD)

Dim CommandBuilder As New OleDb.OleDbCommandBuilder(tbAdapter)

tbAdapter.Update(ds_temp) ‘ Aggiorno il DB

tbAdapter.Dispose()

End Function

Spero che mi puoi aiutare in qualche modo…Grazie!