Dim DS As System.Data.DataSet
        Dim DT As System.Data.DataTable
 
 
        Dim conn As MySqlConnection
 
        Dim data2 As DataTable
 
 
        Dim DC1 As System.Data.DataColumn
        Dim DC2 As System.Data.DataColumn
 
        ' --- Verbindung öffnen
        Dim connStr As String
        connStr = String.Format("server={0};user id={1}; password={2};" & _
          "database={3}; pooling=false", MainMod.mysql_server, _
          MainMod.mysql_user, MainMod.mysql_pw, MainMod.mysql_db)
        conn = New MySqlConnection(connStr)
        conn.Open()
        conn.ChangeDatabase(MainMod.mysql_db)
 
        ' --- DataSet erzeugen
        DS = New System.Data.DataSet()
 
        ' --- 1. Tabelle einlesen
        AddToDS(DS, "produkt", connStr, "SELECT id, artikelnummer FROM produkt")
        ' --- 2. Tabelle einlesen
        AddToDS(DS, "produkt_lz", connStr, "SELECT id, artikelnummer, lz FROM" & _
          "produkt_lz")
 
 
        ' --- Verknüpfung erstellen
        Dim DRel1 As System.Data.DataRelation
        DC2 = DS.Tables("produkt_lz").Columns("artikelnummer")
        DC1 = DS.Tables("produkt").Columns("artikelnummer")
        DRel1 = New System.Data.DataRelation("Artikel mit Preisen", DC1, DC2)
        DS.Relations.Add(DRel1)
 
 
        DT = DS.Tables("artikel")
 
 
 
 
        DataGrid.DataSource = DT
        DataGrid.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        'DataGrid.Columns(0).Visible = True