Cruzar datos desde Firebird con una tabla de MS Access e insertar los que no esten

[Casimiro Notevi]

Una conexión a "Access", lees del primero al ultimo y vas consultando si existe en la de firebird.
Que no existe, lo das de alta. Que existe, pasas al siguiente.

access.conectar
firebird.conectar

mientras no access.eof
  valor = access.registroactual
  if not existe firebird.valor then 
    firebird.crear(valor)
  access.siguiente
fin access

close.firebird
close.access