Boas estou a programar uma base de dados, mas infelizmente a única ferramenta que me deram para a criação da mesma foi o Access

Para tornar esta mais avançada, estou a utilizar código visual basic.

Numa função que estou a usar tenho de fazer uma consulta a algumas tabelas, para isso recorri aos recorset

Dim db as database

Set db = CurrentDb

Dim rs as recordset

Set rs = db.OpenRecordset("tabela", dbOpenTable)

consulta (...)

rs.close

db.close

set rs = nothing

set db = nothing

Problema se estiver a trabalhar na mesma e mais tarde correr este código, o mesmo é executado todo (tenho um contador para ver se o ciclo foi completo) e dá erro no db.close

Se fizer compactar e reparar a Base de Dados o código corre sem problemas...

Alguma ideia do que poderá ser?