Me.Text = Video.lblTitel.Text
        DateTimePicker1.Value = Now
        ComboBox1.Items.Clear()
        ComboBox1.Text = ""
        DBEngineDAO = New dao.DBEngine
        ws1 = DBEngineDAO.Workspaces(0)
        db1 = ws1.OpenDatabase(Video.ToolStripMenuItem5.Text & "\" & _
          Video.ToolStripMenuItem8.Text & ".mdb")
        sqlstate = "Select * from Bestellung where Index = " & Video.lblindex( _
        1).Text & " and Erledigt ='Nein'"
        rsdate = db1.OpenRecordset(sqlstate)
        While Not rsdate.EOF
            ComboBox1.Items.Add(rsdate("Name").Value)
            rsdate.MoveNext()
        End While
        For x = 1 To ComboBox1.Items.Count
            If x = ComboBox1.Items.Count Then Exit For
            If ComboBox1.Items.Item(x).ToString = ComboBox1.Items.Item(x - _
              1).ToString Then
                ComboBox1.Items.RemoveAt(x - 1)
                x = x - 1
            End If
        Next

Gruss Caddy