Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles MyBase.Load
        InstForm1 = Me
    End Sub
Private Sub cbo_artikel_SelectedIndexChanged(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles cbo_artikel.SelectedIndexChanged
	Art.dg1_fill(InstForm1) 'Art als Ableitung von Klasse Artikel
End Sub

 
Public Class Artikel
	Public Sub dg1_fill(ByVal InstForm1)
		Dim str as string
		str = "artikel_id = " & art_id & ""
        	Dim dv As New DataView(tab_artikel)
        	dv.RowFilter = str
        	dv.RowStateFilter = DataViewRowState.CurrentRows
		Form1.InstForm1.dg1.DataSource = dv
	End Sub
End Class