Dim myDS as new DataSet
  Try
    myDs.ReadXml( Dateiname )
  Catch ex as Exception 
  End Try
  Dim TxCustomerTable as DataTable = myDs.Tables("TxCustomer")

    Try
      connect.Open()
      For Each dr As DataRow In txcust.Rows
        InsertRow("TxCustomer", myds.Tables("TxCustomer").Columns, dr)
      Next
    Catch ex As Exception
    Finally
      connect.Close()
    End Try

  Private Sub InsertRow(ByVal TableName As String, ByVal Cols As _
    System.Data.DataColumnCollection, ByVal row As DataRow)
    Dim myCmd As New OleDbCommand("", connect)
    Dim InsertString As String = "INSERT INTO Table " + TableName + " ( "
    Dim ValueString As String = " VALUES( "
    For Each col As DataColumn In Cols
      InsertString += col.ColumnName + ", "
      ValueString += "?,"
      myCmd.Parameters.Add("@" + col.ColumnName, row(col.ColumnName))
    Next
    InsertString = InsertString.Trim(","c) + ")"
    ValueString = ValueString.Trim(","c) + ");"
    myCmd.CommandText = InsertString + ValueString
    Try
      myCmd.ExecuteNonQuery()
    Catch ex As Exception
    Finally
      myCmd.Dispose()
    End Try
  End Sub