Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
 
        DataGridView1.Item(0, 0).Value = +1
        DataGridView1.Item(1, 0).Value = artnr.Text
        DataGridView1.Item(2, 0).Value = type.Text
        DataGridView1.Item(3, 0).Value = 1 'menge (immer 1)
        DataGridView1.Item(4, 0).Value = preis.Text
        DataGridView1.Rows.Add(1)
 
    End Sub