David Martín

creo que hay que hacer algo asi Dim db as Database Dim rst As Recordset Set db = CurrentDb() Set rst = db