AllenM, I cannot remember off the top of my head what I did with this, as it's quite old, but I am sure that the problem was either solved or avoided.

Thanks for the reply though.

I am sure that others may be interested in your workround.

Regards,

Sean Anderson

If someone wishes this then just let me know.

Are you getting the "Compile error: Method or data memebr not found" error at the line List1.AddItem MyObject.Collection.Item(nLoop)? if so, then I know you will get this error if you are using Access 2000 or earlier because the .additem method was not made available until access 2002. Instead populate using .rowsource property

ex.

Not sure if anyone needs this, but if you are having problems with .additem i thought maybe you might be having problems with .removeItem as well. here is a code snippet i use to remove items from the list. It takes a list box as a parameter and depending on the number of column heads or columns count it will remove the selected item

Public Sub RemoveItem(lst As ListBox)
    Dim strArray() As String
    Dim i As Long
    Dim lngStart As Long
    Dim str As String

    strArray = Split(lst.RowSource, ";", , vbTextCompare)

    If lst.ColumnHeads Then
        lngStart = (lst.ColumnCount * lst.ListIndex) + lst.ColumnCount
    Else: lngStart = lst.ColumnCount * lst.ListIndex
    End If

    For i = 0 To lngStart - 1
        str = str & strArray(i) & ";"
    Next i

    For i = i + lst.ColumnCount To UBound(strArray) - 1
        str = str & strArray(i) & ";"
    Next i

    If i > UBound(strArray) Then
        lst.RowSource = Left(str, Len(str) - 1) 'remove last semicolon
    Else: lst.RowSource = str & strArray(i)
    End If
End Sub