VBA/Access: mehrere Abfragen in ein Listfeld

[BigNfan]

leider steht nach requery immer no nix im listfeld

If (i = 0) Then 'Wenn noch nix im Listfeld steht
Me!lst_artikel.RowSource = rst1!CDName
MsgBox (rst1!CDName)
Else 'Wenn schon etwas im listfeld steht
source = lst_artikel.RowSource 'Alter Wert im Listfeld
source = lst_artikel.RowSource & ";" & rst1!CDName
Me!lst_artikel.RowSource = source 'Neuer Wert im Lisfeld
End If
Me!lst_artikel.Requery 'Listfeldaktualisierung



aber msgbox(rst1!Cdname) gibt den richtigen wert aus.. *hm*