% 'Dimenstion Variables Dim strAccessDBPath 'Holds the Access Database Name 'Call the sub procedure to increment the hit counters Call IncrementHitCount(strAccessDBPath) %>