Recordset en access

[JonathanF]

mira ahora e cambiado la forma, estoy intentando rellenar un recordset a mano y para ello tengo el siguiente codigo
Dim rs As DAO.Recordset
Dim rs3 As DAO.Recordset


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

While Not rs.EOF

rs3.AddNew
rs3.Fields(0) = rs.Fields("NOMBRE CLIENTE")
rs3.Fields(1) = rs.Fields("CODIGO")
rs3.Update
rs.MoveNext

Wend
pero algo esta mal porque no hace, me da el error de que la variable de objeto o bloque with no establecido y no entiendo