Public Function loadXmlFile(Filename As String) As Boolean
        On Error GoTo er
       
    Dim newDs As New LocalKassaDataSet()
    Dim newTa As New LocalKassaDataSetTableAdapters.TovarTableAdapter

    Dim imp_ds as Dataset()

     imp_ds.ReadXml(Filename)
     newTa.ClearBeforeFill = True
     newTa.Fill(imp_ds.Tables(1)) ' Здесь загружаю пока одну таблицу Tovar в соотв. адаптер

       loadXmlFile=true

ex:
        Exit Function
er:
        MsgBox(Err.Number & Err.Description)
        loadXmlFile = False
        Resume ex
        Resume Next

    End Function

var ds = new DataSet();
ds.ReadXml(xmlFile);
var tds = new MyTypedDataSet();
using(var rd = ds.Tables[0].CreateDataReader())
  tds.Load(rd, LoadOption.OverwriteChanges, tds.MyTypedDataTable);

  imp_ds.ReadXml(Filename)
        Dim idr As DataTableReader
        For Each tbl In imp_ds.Tables
            idr = tbl.CreateDataReader()
            newDs.Load(idr, LoadOption.OverwriteChanges, newDs.Tables(tbl.TableName))
        Next

      dataSet.Tables(0).Clear()
            dataSet.Tables(0).AcceptChanges()

 Public Function CreateCommandAndUpdate( _
    ByVal connectionString As String, _
    ByVal queryString As String) As DataSet

        Dim dataSet As DataSet = New DataSet

        Using connection As New OleDbConnection(connectionString)
            connection.Open()
            Dim adapter As New OleDbDataAdapter()

            adapter.SelectCommand = New OleDbCommand( _
                queryString, connection)

            Dim builder As OleDbCommandBuilder = _
                New OleDbCommandBuilder(adapter)

            adapter.Fill(dataSet)
            dataSet.Tables(0).Clear()
            dataSet.Tables(0).AcceptChanges()


            adapter.DeleteCommand = builder.GetDeleteCommand()
            adapter.UpdateCommand = builder.GetUpdateCommand()
            adapter.InsertCommand = builder.GetInsertCommand()
            ' Code to modify the data in the DataSet here.  

            ' Without the OleDbCommandBuilder this line would fail.
            
            adapter.Update(dataSet)
        End Using
        Return dataSet
    End Function

Z_Alex,
....
 newDs.openxml(Filename)
  For Each tbl In newDs.Tables
            Delcmd = New OleDbCommand("delete * from " + tbl.TableName, conn)
            da = New OleDbDataAdapter("SELECT * FROM " + tbl.TableName, conn)
            cb = New OleDbCommandBuilder(da)
            ds = New DataSet()
            cb.GetDeleteCommand()
            cb.GetUpdateCommand()

            da.Fill(ds, tbl.TableName)
            da.TableMappings.Add(tbl.TableName, tbl.TableName)

            Dim dRow, NewdRow As DataRow
            Dim col As DataColumn
            Update_progress(status_field, "Загрузка таблицы " + tbl.TableName, progress, 0, frm)
            progress.ProgressBar.Maximum = 0
            progress.ProgressBar.Maximum = newDs.Tables(tbl.TableName).Rows.Count
            For Each dRow In newDs.Tables(tbl.TableName).Rows
                progress.ProgressBar.Value += 1
                progress.ProgressBar.Refresh()
                NewdRow = ds.Tables(tbl.TableName).NewRow
                For Each col In newDs.Tables(tbl.TableName).Columns
                    NewdRow(col.ColumnName) = dRow(col.ColumnName)
                Next
                ds.Tables(tbl.TableName).Rows.Add(NewdRow)
            Next
            da.Update(ds.Tables(tbl.TableName))
        Next