Sub UpdateDatabase()
'**************************************************************************************
' database opening
' '**************************************************************************************
Dim Db As Access.Application
Set Db = New Access.Application
Db.OpenCurrentDatabase ("K:\Work in Progress\Paul-Henri\Reception process\Reception process.mdb")
End Sub