[RESOLVED] [2005] readXML populate different Tables

[maps]

Here you are.
You will need to modify it a little to suit your needs.

Private Sub update_tblPopulatedPlaces_fromXML()
        Dim dsXMLImport As New DataSet
        myConn = New OleDbConnection(strAccessConn)
        Dim strSQL As String = "INSERT INTO tblPopulatedPlaces(AdminBdry1_ID,AdminBdry2_ID,AdminBdry3_ID,AdminBdry4_ID,PPname,uid_Created,date_Created,uid_Modified,date_Modified)" & _
        " VALUES(@AdminBdry1_ID,@AdminBdry2_ID,@AdminBdry3_ID,@AdminBdry4_ID,@PPname,@uid_Created,@date_Create  d,@uid_Modified,@date_Modified)" 
        Dim da As New OleDbDataAdapter()
        da.AcceptChangesDuringFill = False
        da.InsertCommand = New OleDbCommand(strSQL, myConn)
        Try
            myConn.Open()
            dsXMLImport.ReadXml(Me.tbFilePath.Text)
            With da.InsertCommand.Parameters
                For i As Integer = 0 To dsXMLImport.Tables(1).Rows.Count - 1
                    drPublic = dsXMLImport.Tables(1).Rows(i)
                    .AddWithValue("@AdminBdry1_ID", drPublic(1))
                    .AddWithValue("@AdminBdry2_ID", drPublic(2))
                    .AddWithValue("@AdminBdry3_ID", drPublic(3))
                    .AddWithValue("@AdminBdry4_ID", drPublic(4))
                    .AddWithValue("@PPname", drPublic(5))
                    .AddWithValue("@uid_Created", drPublic(6))
                    .AddWithValue("@date_Created", drPublic(7))
                    .AddWithValue("@uid_Modified", drPublic(8))
                    .AddWithValue("@date_Modified", drPublic(9))
                Next i
            End With
            da.Update(dsXMLImport, dsXMLImport.Tables(1).TableName)
        Catch exSQL As OleDbException
            ShowErrorBoxOK("update_tblPopulatedPlaces_fromXML():", exSQL.Message, My.Resources.myStrings.capSQLError)
        Catch ex As Exception
            ShowErrorBoxOK("update_tblPopulatedPlaces_fromXML():", ex.Message, My.Resources.myStrings.capGeneralError)
        Finally
            myConn.Close()
            myConn.Dispose()
            da.Dispose()
        End Try
    End Sub