Visual Basic - SEEK DE NUEVO

Hola de nuevo, muchas gracias por contestarme pero he intentado poner el código que tu me has puesto tal cual y adaptandolo y se me para en la línea del set r=bd.openrecordset... me dice que se requiere un objeto.

Un saludo.