Sub ImportTable()
        'Ricavo il datatable da remoto
        Dim DtRemote As New DataTable
        DtRemote = ClassRemoteDb.GetTable() 'Funzione che restituisce il datatable con i dati da importare

        Dim Cn As New OleDbConnection(vLocalCnString)
        Dim Da As OleDbDataAdapter = New OleDbDataAdapter("SELECT *  FROM " & vNomeTabella, Cn)
        Dim Ds As DataSet = New DataSet(vNomeTabella)

        Da.FillSchema(Ds, SchemaType.Source, vNomeTabella)
        Da.Fill(Ds, vNomeTabella)

        Dim Dt As DataTable = New DataTable
        Dt = Ds.Tables(vNomeTabella)

        For Each DrDt As DataRow In DtRemote.Rows
            Dim Dr As DataRow
            Dr = Dt.NewRow
            For Each ColDt As DataColumn In DtRemote.Columns
                Dr(ColDt.ColumnName) = DrDt(ColDt.ColumnName)
            Next

            Dt.Rows.Add(Dr)
            Dim CmdBuild As OleDbCommandBuilder = New OleDbCommandBuilder(Da)
        Next
        Da.Update(Ds, vNomeTabella)
        Ds.AcceptChanges()
    End Sub