Public Sub CreateForm()
        Dim DS As New DataSet
        Dim i As Integer = 0
        Dim filePath As String = "Z:\1001\maschinen.xml"
        DS.ReadXml(filePath)
 
        For Each rows As DataRow In DS.Tables(0).Rows
            Form1.CheckedListBox1.Items.Add((DS.Tables(0).Rows.Item(i).Item( _
              0).ToString))
 
            'Erzeugen des TabPages in TabControl
            Dim myTP As New TabPage
            With myTP
                .Parent = Form1.TabControl1
                .Text = DS.Tables(0).Rows.Item(i).Item(0).ToString
            End With
 
            'Erzeugen des DataGridView im ersten TabPage
            Dim myDGV As New DataGridView
            With myDGV
                .Parent = myTP
                .Dock = DockStyle.Fill
                .Name = "DataGridView" & i
 
            End With
            i += 1
        Next
End Sub

Public Sub Test1()
	Datagridview1.datasource = dsirgendwas          'So funktioniert es jedenfalls 
' nicht
End Sub