Visual Basic - Error en BaseDatos

Hola amig@s, tengo un problema que se esta volviendo tedioso.

Resulta que tengo una Base de Datos en Acces 97, donde ingresan 10 usuarios, pero ultimamente me da el siguiente error la BD: "posiblemente usted u otro usuario haya salido de Access inesperadamente mientras estaba abierta la B.D." y tengo que arreglar la BD por medio de una herramienta llamada JETCOMP. y listo todo bien.

La pregunta, porque me da este problema a cada ratos, una vez cada semana.

abro la base de datos usando el siguiete codigo:

Set BDATOS = DBEngine.OpenDatabase("M:\real.MDB", False, False, ";Pwd=holahola")

Set RS_User = BDATOS.OpenRecordset("Loggin", dbOpenTable)

With RS_User
End With

BDATOS.Close

alguien me puede decir que estoy haciendo mal o que posiblemente pueda ser lo que me da el problema???

Gracias por su ayuda y saludos desde Guatemala

si el porblema es persistente y siempre ocurre una ves por semana, le podres poner una condision IF ejemplo.. si siempre ocurre los jueves cancelas el porgrama asi:
If hoy = jueves (Thursday si lo tienes en inglés) then msgbox "hoy no trabajo" end
y sacabo el porblema