Access - ayuda con listbox

hola tengo un problema con un listbox este es el codigo

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT distinct [NOMBRE CLIENTE],CODIGO,ENTRADA From Pedidos ")

While Not rs.EOF

Lista24.AddItem rs.Fields![NOMBRE CLIENTE].Value
Lista24.AddItem rs.Fields!CODIGO.Value
Lista24.AddItem rs.Fields!ENTRADA.Value

rs.MoveNext
Wend
pero me da fallo, me dice que se requiere un objeto, alguien podria decirme que es lo que le falta al codigo, agradeceria ayuda. Tambien e probado poniendo

Lista24.AddItem rs.Fields("NOMBRE CLIENTE")
Lista24.AddItem rs.Fields("CODIGO")
Lista24.AddItem rs.Fields("ENTRADA") pero tampoco lo hace me da el mismo fallo

Yo en tu lugar haría esto:

me.Lista24.RowSourse = "SELECT distinct [NOMBRE CLIENTE],CODIGO,ENTRADA From Pedidos "
me.Lista24.Requery
y con esto actualizo la lista ó un combo con la consulta que tienes

y te evitas utilizar el RecordSet