Try
            ds_Step_virtuell.ReadXml(My.Resources.template) 'FileName)
 
            'Dim dataSet As DataSet = New DataSet
            'dataSet.InferXmlSchema(FileName)
            ds_Step = ds_Step_virtuell
            dg1.DataSource = ds_Step
            dg2.DataSource = ds_Step
            dg3.DataSource = ds_Step
            dg4.DataSource = ds_Step
 
            'What relationships are there?
 
            Dim i As Integer
            Dim Beziehungen As String = Nothing
            For i = 0 To (ds_Step_virtuell.Relations.Count - 1)
                Beziehungen = Beziehungen & vbLf & ds_Step_virtuell.Relations( _
                  i).RelationName.ToString()
                'ds_Step.Relations.Add(ds_Step_virtuell.Relations(i))
            Next
 
            MsgBox(Beziehungen)
 
 
            For Each dt As DataTable In ds_Step.Tables
                Anzahl_Tabellen += 1
                Select Case ds_Step.Tables(Anzahl_Tabellen - 1).TableName
                    Case ""
                        Tabellen_Step()
                        MsgBox("In der XML Datei konnte keine Tabelle gefunden" & _
                          "werden")
                    Case "STEP-ProductInformation"
                        dg1.Visible = True
                        dg1.DataMember = ds_Step.Tables(Anzahl_Tabellen - _
                          1).TableName
                        Me.grp_Tab_1.Text = ds_Step.Tables(Anzahl_Tabellen - _
                        1).TableName
                        dg1.AutoResizeColumns()
                        'Read Only setzen
                        dg1.Columns("ExportTime").ReadOnly = True
                        dg1.Columns("ExportContext").ReadOnly = True
                        dg1.Columns("ContextID").ReadOnly = True
                        dg1.Columns("WorkspaceID").ReadOnly = True
                        'Anz_Rows = dg1.RowCount
                    Case "Products"
                        dg2.Visible = True
                        dg2.DataMember = ds_Step.Tables(Anzahl_Tabellen - _
                          1).TableName
                        Me.grp_Tab_2.Text = ds_Step.Tables(Anzahl_Tabellen - _
                        1).TableName
                        dg1.AutoResizeColumns()
                        'Read Only setzen
                        'keine Tabellen verfügbar
                        'Anz_Rows = dg1.RowCount
                    Case "Product"
                        dg3.Visible = True
                        dg3.DataMember = ds_Step.Tables(Anzahl_Tabellen - _
                          1).TableName
                        Me.grp_Tab_3.Text = ds_Step.Tables(Anzahl_Tabellen - _
                        1).TableName
                        dg3.AutoResizeColumns()
                        'Read Only setzen
                        dg3.Columns("ID").ReadOnly = True
                        'Anz_Rows = dg1.RowCount
                    Case "AssetCrossReference"
                        dg4.Visible = True
                        dg4.DataMember = ds_Step.Tables(Anzahl_Tabellen - _
                          1).TableName
                        Me.grp_Tab_4.Text = ds_Step.Tables(Anzahl_Tabellen - _
                        1).TableName
                        dg4.AutoResizeColumns()
                        'Read Only setzen
                        dg4.Columns("AssetID").ReadOnly = True
                        dg4.Columns("QualifierID").ReadOnly = True
                        dg4.Columns("Type").ReadOnly = True
                        'Anz_Rows = dg1.RowCount
                End Select
            Next
            FileName = "new.xml"
            dg1.Rows(0).Cells("ExportTime").Value = Date.Now
        Catch ex As Exception
            MsgBox("Leider ist ein Fehler beim Laden aufgetreten." _
            & "" & vbLf _
            & "" & vbLf _
            & "" & ex.ToString())
        End Try

Try
           Dim newProductRow As DataRow = ds_Step.Tables("Product").NewRow()
 
            newProductRow("ID") = "123"
            ds_Step.Tables("Product").Rows.Add(newProductRow)
 
            'alt
            'Dim row_dg3() As String = {"123"}
            'dg3.Rows.Add(row_dg3)
 
            'Dim row_dt4_Step() As String = {"AssetID", "QualifierID", "Type"}
            'dt4_Step.Rows.Add(row_dt4_Step)
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try