visible invible cannot get it to start but does work

Hi can anyone help. I have the following code working in a form
it does work but only when I move the counter along manualy.
On the database I developed we use a combo box to look up
account numbers I.e we type in the account number into the
combo box and press return, it then brings up the details we need
the trouble is that some screens have so many fields people get
confused with the data displaid. the text below cuts out some of
the irelivent data but like I said we have to either click into the
(type) box or move the counter along then back a digit. is there
anyone who can help me make it automaticaly

private Sub type_Enter()
If Me![type] = "featurenet" Then
Me![source1].Visible = True
Me![source2].Visible = False
End If
If Me![type] = "caretaker" Then
Me![source1].Visible = False
Me![source2].Visible = True
End If

End Sub

Thanks

Try something like this

Hi and thanks for your help all my problems are now sorted
(for now)
Thanks