I Formens General
Dim Beenhere As Boolean ' Form_Activate logik

I Form_Activate
Private Sub Form_Activate()
If Beenhere = False Then 'Första gången programmet är här
'kör denn kod
'.....................
'......................
End If
Beenhere = True 'Form_Activate kommer inte att köras mer
End Sub