Vba 清除组合框并将索引重置为-1

我一直在为我的数据库类做一个数据库项目，但我被最荒谬的事情困住了；清除我的一个表单中的值组合框。几个小时来我一直在想怎么做，但我做不到。组合框有一个控件源，将其链接到一个属性，该属性是日期/时间的数据类型，格式为短时间（hh:ss）

我试过一些方法，但都不管用，比如：

ComboBox1.Items.Clear() 

但这不起作用，因为Items属性甚至不存在于Access版本的VB中，我运行Access 2019，它有VB for Apps 7.1。互联网上的大多数东西都建议采用这种方法

我还尝试了一种相当古怪的方法：

index = Combo39.ListIndex
Dim indexc As Integer
indexc = 0
If index = -1 Then
    'do nothing because its already empty
Else
    Do
        Combo39.RemoveItem (indexc)
        If indexc = index Then
            Exit Do
        End If
        indexc = indexc + 1
    Loop
End If

这段代码基本上是循环的，直到循环次数与组合框的索引编号相同为止。我不知道为什么，但它不起作用。它看起来确实删除了一些东西，但不是全部。好像循环很早就中断了

---

我非常需要帮助，对于如何做这件简单的事情，我已经完全不知道了。非常感谢您的帮助。

由于您的组合框似乎有一个值列表作为其rowsourcet，您只需清除以下内容：

Me!Combo39.RowSource = ""