Access - urge

hola necesito saber porque no me hace estas sentencias.. quiero que si se cumple lel rs me inserte en la tabla pedidos unos campos pero no me lo hace a ver si alguno ve el fallo

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

Set db = CurrentDb
Set rs = db.OpenRecordset("select * from A, Pedidos where A.pedido<>Pedidos.pedido and A.Z<>pedidos.Z")

While Not rs.EOF

db.Execute ("insert into Pedidos([nombre cliente],[ref cliente],codigo,pedido,Z,entrada,[Carácter del pedido],importe,f.pedido,[fecha introducción],situacion,program,[c trabajo],stock,cantidad) values(rs.Fields(0),rs.Fields(1),rs.Fields(2),rs.Fields(3),rs.Fields(4),rs.Fields(5),rs.Fields(10),rs.Fields(11),rs.Fields(12),rs.Fields(20),'Sin introducir',rs.Fields(26),rs.Fields(27),rs.Fields(30),rs.Fields(33))")

rs.MoveNext
Wend

No se si estoy en lo cierto xq no controlo mucho access pero estas seguro de que la consulta la tienes bien??
tu dices : "select * from A, Pedidos where "
creo que es asi : "select * from pedidos a where ..."