Function ZatvoriB()
DoCmd.Quit
End Function