主题：foxtable ListBox控件

请教各位大虾：  ------》ListBox控件问题 

 我想先删除ListBox的值然后再添加数据，为什么只能添加一行数据了？

    For Each dr In dt.DataRows
        If dt.DataRows.Count > 0 Then         '表里有数据时的情况
           If parflag = 1 Then                '标志为重要的公告时
              parggneirou = dr("内容")
              parggdept = dr("发布部门简称")
              parggfaburenname = dr("发布人姓名")
              parggfabudate = dr("发布时间")
              parggtitle = dr("标题")
              Forms("Form强制阅览").Open()
           Else If parflag = 0 Then            '标志为不重要的公告时
              '先删除ListBox的数据
              Cmb.Items.Clear()
              '再添加ListBox的数据
              parggcode = dr("ID")
              parggtitle = dr("标题")
              parggfabudate = dr("发布时间")
              str = parggcode + " " + parggtitle + " " + parggfabudate
              MessageBox.Show(str)
              Cmb.Items.Add(str)
           End If
       End If    
    Next

这段代码哪里有问题呢？