yo por lo pronto no veo el query en ningun sitio

. CAmbia:
TBL.Open "Afiliados" ,DB ,1 ,2
por
TBL.Open "select * from Afiliados" ,DB ,1 ,2
(a menos que esa forma reducidad funciones y yo no lo sabia

)
Por otro lado, si tu tabla Afiliados tienes todos los campos que estas intentando sacar en el script, pues no deberia darte probelmas.....
ToKaTa.