Automatisk udfylde "felt2" og "felt3" udfra indhold af "felt1"

Hej,
Et spørgsmål mere i forlængelse af: http://www.eksperten.dk/spm/590199

Dim VARa as Integer
VARa = Left(Elevnummer,2)
Select Case VARa
Case Is = "10"
Me.Tilhørsforhold = "Fyn"
Case Is = "11"
Me.tilhørsforhold = "Sønderjylland"
End Select

Jeg har et felt der hedder konsulent, som jeg også gerne vil have udfyldt automatisk aflængig af enten VARa eller indeholdet i afdeling.
Altså hvis man automatisk også kunne få udfyldt Me.konsult ligesom Me.tilhørsforhold, blot med navnet på konsulenten.
Ved  ikke om det kan virke på 2 felter ?

Ellers har jeg uden held prøvet, at tjekke det på indholdet i afdeling, sådan her:

Dim VARb as Integer
VARb = (afdeling)
Select Case VARa
Case Is = "Fyn"
Me.konsulent = "Palle Nyborg"
Case Is = "Sønderjylland"
Me.tilhørsforhold = "Poul Sønderborg"
End Select

vh thjoe