Code better with Access… entials!
You have List Box and you want the first item to be selected…
For VBA use… Me.lstActivities.DefaultValue = Me.lstActivities.ItemData(0)
or
In the Properties window, on the Default Value line, of the List Box use…