quiero que solo haga este código una vez y no mas

[raveko]

Tengo este código y quiero que lo haga solo la primera vez que mando llamar a la ventana pero no mas veces por que cuando regeso a esa ventana, el combo box se llena de mas informacion que no quiero...
*****************************
Private Sub Form_Activate()
Data1.Recordset.MoveFirst

Do While Not Data1.Recordset.EOF
Combo1.AddItem Data1.Recordset.Fields("descripcion")
Data1.Recordset.MoveNext
Loop
End Sub
*****************************

Gracias