% 'Dimenstion Variables Dim strDatabasePath 'Initialise the path to the access database if inside another folder strDatabasePath = ("/counter") 'Call the sub procedure to increment the hit counters Call IncrementHitCount(strDatabasePath) %>