recuperar un recorset para un notepad

kukas2906
04 de Mayo del 2009
Hola:

Soy nuevo en esto de la programacion y no doy con la tecla.
Tengo un codigo con el cual recupero un dato de una base de datos y a la hora de exportarlo a un notepad no puedo.
Dim db As Database
Dim nb As Recordset
Set db = CurrentDb()
Set nb = db.OpenRecordset("SELECT [X] FROM [Y]")
nb.movefirst
CREO EL NOTEPAD Y LE METO ESTA LINEA
A.WRITELINE (nb)

Con esto me mete el campo en el notepad, en la consulta se trata de un unico campo lo que estoy buscando con un where en donde solo me puede dar un registro.
Saludos