Visual Basic - problema update (sql)

Hola, intento modificar una tabla (PRUEBA), añadiéndole los datos de la tabla TODOS (cuando coincida el nombre de PRUEBA con el de TODOS),
lo que intento hacer es lo siguiente, pero no me corre,
haber si alguien me puede hechar una manita, o sugerir otra cosa (no se si asi se hace)

Set BASEX = DAO.OpenDatabase("C:\BASE.MDB")
Set R1 = BASEX.OpenRecordset("SELECT * FROM TODOS")
Set R2 = BASEX.OpenRecordset("SELECT * FROM PRUEBA'", dbOpenDynaset)
MISQL = "UPDATE PRUEBA SET PRUEBA.TELEFONO = TODOS.TELEFONO, PRUEBA.NOMBRE = TODOS.NOMBRE WHERE NOMBRE IN(SELECTED NOMBRE FROM TODOS)"
BASEX.Execute MISQL