Combo

[tazzito]

no entiendo mucho tienes un poco complicado el codigo a mi gusto pero creo que el problema radica aca

Public Function CerrarBD()
If Not dbBascula Is Nothing Then
dbBascula.Close
Set dbBascula = Nothing
End If

aca eliminas de la memoria la dbbascula

o sacas el set dbBascula= nothing
o tal vez pones un on error goto resume next y en ese procedimiento simplemente cierras la base de datos o tal vez mas facil aun abres la base de datos una vez que la ocupas y despues la eliminas... (todo dentro del mismo modulo)