Private Sub InitializeComponent()
        Me.DataSet1 = New System.Data.DataSet()
        Me.Tabelle = New System.Data.DataTable()
        Me.DataColumn1 = New System.Data.DataColumn()
        Me.DataColumn2 = New System.Data.DataColumn()
 
        'DataSet1
        '
        Me.DataSet1.DataSetName = "NewDataSet"
        Me.DataSet1.Tables.AddRange(New System.Data.DataTable() {Me.Tabelle})
        '
        'Tabelle
        '
        Me.Tabelle.Columns.AddRange(New System.Data.DataColumn() _
          {Me.DataColumn1, Me.DataColumn2})
        Me.Tabelle.TableName = "Tabelle"
        '
        'DataColumn1
        '
        Me.DataColumn1.ColumnName = "C1"
        '
        'DataColumn2
        '
        Me.DataColumn2.ColumnName = "C2"
        Me.DataColumn2.DataType = GetType(Integer)
        '
        '...................
 
    End Sub
 
    Friend WithEvents DataSet1 As System.Data.DataSet
    Friend WithEvents Tabelle As System.Data.DataTable
    Friend WithEvents DataColumn1 As System.Data.DataColumn
    Friend WithEvents DataColumn2 As System.Data.DataColumn

Public Class Form1
 
    Dim WithEvents _dataset1 As DataSet
    Dim WithEvents _tabelle As DataTable
 
    Dim WithEvents bs As New BindingSource
    Dim dgv As New DataGridView With {.Parent = Me, .DataSource = bs}
 
    Public Property Dataset1 As DataSet
        Set(value As DataSet)
            _dataset1 = value
            _tabelle = _dataset1.Tables("Tabelle")
            bs.DataSource = _tabelle
        End Set
        Get
            Return _DataSet1
        End Get
    End Property
 
    '...........................
 
End Class

Module modMain
 
    Public Sub Main()
 
        Dim ds As DataSet = CreateDataset()
 
        'Zugriff auf das Dataset ist jetzt möglich
        ds.Tables("Tabelle").Rows.Add("eine Zeile", 100)
 
 
        'Falls das Formular benötigt wird
        Using Frm1 As New Form1
            Frm1.Dataset1 = ds
            Frm1.ShowDialog()
        End Using
    End Sub
 
 
 
    Private Function CreateDataset() As DataSet
 
 
        Dim DataSet1 As New System.Data.DataSet
        Dim Tabelle As New System.Data.DataTable
        Dim DataColumn1 As New System.Data.DataColumn
        Dim DataColumn2 As New System.Data.DataColumn
 
 
        '
        'DataSet1
        '
        DataSet1.DataSetName = "NewDataSet"
        DataSet1.Tables.AddRange({Tabelle})
        '
        'Tabelle
        '
        Tabelle.Columns.AddRange({DataColumn1, DataColumn2})
        Tabelle.TableName = "Tabelle"
        '
        'DataColumn1
        '
        DataColumn1.ColumnName = "C1"
        '
        'DataColumn2
        '
        DataColumn2.ColumnName = "C2"
        DataColumn2.DataType = GetType(Integer)
        '
        Return DataSet1
    End Function
End Module