Private Sub packmittelstamm_connect()
        Dim con As New SqlClient.SqlConnection(connstr)
        Try
            con.Open()
            Dim sql As String = "select * from packmittelstamm "
            Dim da As New SqlDataAdapter(sql, con)
            da.Fill(ds, "packmittelstamm")
 
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        con.Close()
    End Sub
    Public Sub packmittelstamm_laden()
        ds.Clear()
        packmittelstamm_connect()
 
        dgv1.DataSource = ds
 
        dgv1.Columns(0).Visible = False
        dgv1.Columns(1).HeaderText = "Name"
        dgv1.Columns(2).HeaderText = "Abmessungen"
        dgv1.Columns(3).HeaderText = "Beschreibung"
        dgv1.Columns(4).HeaderText = "Grundgewicht"
 
    End Sub