[Access/VBA] Wo ist der Fehler?

[Julian Maicher]

Hi,

ich habe eine Combobox cmb_aplid und eine Listbox (Werteliste) lst_apl und folgenden Code dazu:

Private Sub cmb_aplid_Change()
Dim value As String

    value = cmb_aplid
    
    Dim cn As New ADODB.Connection
    Dim cmd As New ADODB.Command
    Dim rs As New ADODB.Recordset
    
    Set cn = Application.CurrentProject.Connection
    
    cmd.ActiveConnection = cn
    cmd.CommandText = "SELECT * FROM tbl_Hardware Where APL_id Like '" & "%" & value & "%" & "'"
    
    Set rs = cmd.Execute
    
    Do While Not rs.EOF
        lst_apl.Additem (rs!Hardware_id & ", " & rs!Modell)
        rs.MoveNext
    Loop

End Sub

Wenn ich in der Combobox etwas auswähle, kommt folgender Fehler: Fehler beim Kompilieren. Methode oder Datenobjekt nicht gefunden.
Der Marker blebt bei rs!Modell stehen. Ich habe das Gefühl, dass es an der Methode Additem liegt.
Wenn ich die Ausgabe, anstatt in der Listbox, in einer MsgBox mache, funktioniert alles.

Ich benutze Access 2000.

 

[Julian Maicher]

Hat sich von selbst gelöst.
Geht mit RowSource.