Dim addcount As Integer
            Dim i As Integer
 
            AufgabenRs.MoveFirst            
 
            Do While Not AufgabenRs.EOF
            addcount = 0
            If AufgabenRs.Fields(0) <> "" Then
                For i = 0 To (ComboBox1.ListCount - 1)
                If AufgabenRs.Fields(0) = ComboBox1.List(i) Then
                    addcount = 1
                End If
                Next
                If addcount <> 1 Then
                    ComboBox1.AddItem AufgabenRs.Fields("Beschreibung")
                    ComboBox1.ListIndex = 0
                End If
            End If
            AufgabenRs.MoveNext
 
            Loop