Access ListBOX плохо удаляет Item(s).

[kibernetics]

Спешу вновь озадачить еще одной проблемкой.
Использую такой код:

Код: Выделить всё

Private Sub ButtonRefresh_Click
'очистка списка ListBox
    For i = 0 To lstFil.ListCount - 1
        lstFil.RemoveItem (i)
    Next i
   
' добавление новых строк
    Set f = fso.GetFolder(folderspec)
    Set fl = f.Files 
        For Each fl1 In fl
            lstFil.AddItem (fl1.Name)
        Next
End Sub

в этом коде я подрузамевал, что перед добавлением списка, вначале очистится ListBox, однако, он как-то странно "чистится". Удаляются из списка не все записи. Нужно несколько раз выполнить код(без второй части). Вторую часть кода, я привел, чтобы показать, как я пополняю список, т.к. думал, что может виноват индекс.

в общем, вопрос: как добится полного очищения списка? в ВБ например, это ListBox.Clear, а в Accesse -

[Gloom]

Из коллекции надо удалять так, например:

Код: Выделить всё

    For i = lstFil.ListCount - 1 To 0 Step -1 ' Т.е. от "конца" к "началу"
        lstFil.RemoveItem (i)
    Next i

А вообще-то так быстрее:

Код: Выделить всё

lstFil.RowSource = ""

[kibernetics]

спасибо.