Dim WD As clsWord
        Dim decB As Decimal
        WD = New clsWord
        Dim dr As DataRow
        Dim i As Integer
   Public Sub wordtab()
        i = dtagsel.Rows.Count
        m_wdApp.ActiveDocument.Tables.Add(Range, NumRows:=i, NumColumns:=2)
        With WD
            .Dateizugriff("D:\Angebot3.dot")
            .TextmarkeFüllen("Kd_name", Kdvname)
            .TextmarkeFüllen("Kd_nname", Kdnname)
            For Each dr In dtagsel.Rows
		For Each dr In dtagsel.Rows
                Posnr1 = dr.Item(1)
                Artnr1 = dr.Item(2)
		.TextmarkeFüllen("ag_pos", Posnr1)
                .TextmarkeFüllen("ag_artnr", Artnr1)
	    Next
   End Sub