'*********************************************************
' Function CloseCurrentDatabase() As Boolean
'
' Cierra la base de datos actual y devuelve True si ha
' tenido éxito. La verdad es que no veo ninguna diferencia
' entre este método y el ya existente en el objeto
' Application de Access
'
Sub wzCloseCurrentDatabase()
    
    WizHook.Key = 51488399
    WizHook.CloseCurrentDatabase
    
End Sub
'*********************************************************