Listbox Problem

[MethadoneBoy]

Hi guys,

I'm a beginner when it comes to VBA and I'm encountering a rather annoying error with a listbox on a form that I'm writing.

My form has a button that is called Cmd553. It also contains a listbox called lstRecords. The problem arises when I try to add items from a database to the listbox. Upon clicking the 553 button, an error appears saying

Compile Error: Method or data member not found

Also, this line of code is highlighted -

lstRecords -this part highlighted: .AddItem -end highlighting RS!NBR_FUND

I'd appreciate any help you can give. Here's the problematic code

Private Sub Cmd553_Click()
    
    Dim DB As Database
    Dim RS As Recordset
    Dim strAcc As String
    Set DB = CurrentDb()
    strAcc = "SELECT NBR_FUND FROM Label_Root WHERE NBR_COMP IN(553);"
    Set RS = DB.OpenRecordset(strAcc)
    
    If Not RS.EOF Then RS.MoveFirst
    Do While Not RS.EOF
        'txtRes.SetFocus
        'txtRes.Text = txtRes.Text & " : " & RS!NBR_FUND
        lstRecords.SetFocus
        lstRecords.AddItem RS!NBR_FUND
        lstRecords.ItemData(lstRecords.NewIndex) = RS!NBR_FUND
        RS.MoveNext
    Loop
    
    MsgBox "Active"
    
End Sub

Many thanks

[GIS_Mike]

Maybe the AddItem method only accepts a string type as the input.

[MethadoneBoy]

'Fraid not. It returns the same error message even if I use a String.