sub Report_Initialize()
Database.Tables(index).Location=App.Path & "\File.mbd"
end sub