Sub InitDataArtikel()
		'Datenquelle für Datagrid festlegen
		dv = clsMain.ds.Tables("artikel").DefaultView
		dg.DataSource = dv
		'Databindings
		lblNr.DataBindings.Add("Text", dv, "nr")
		lblBez.DataBindings.Add("Text", dv, "bez")
		pbBild1.DataBindings.Add("ByteImage", dv, "bild")
		'CurrencyManager
		cm = CType(BindingContext(dv), CurrencyManager)
	End Sub

	Private Sub btnArtikelNeu_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnArtikelNeu.Click
		Try
			Dim drv As DataRowView = dv.AddNew
			drv.Item(0) = clsMain.GetLastID("artikel") + 1
			cm.Position = dv.Count - 1
		Catch ex As Exception
			eh.Show(ex)
		End Try
	End Sub