Public Module FillTreeView
    Public newinst As System.Windows.Forms.Form
    Public Sub tvw_fill(ByVal newinst As Projekt1.Artikel)
        oleadp1.SelectCommand = comdA1
        oleadp1.Fill(ds1, "Artikel")
        Dim A_Id As Integer
        Dim aid, text1 As String
        Dim dr As DataRow
        Dim A_Node As TreeNode
        For Each dr In ds1.Tables("Artikel").Rows
            aid = dr(0).ToString
            text1 = dr(1).ToString
            A_Node = newinst.TreeView1.Nodes.Add(text1)
'In Artikel.FormLOad wird die Prozedur aufgerufen,so:
Call Firma080205.FillTreeView.tvw_fill(newinst)