setfocus

Hej!
Jeg sidder lige med et mindre problem;
Private Sub Ramme27_BeforeUpdate(Cancel As Integer)
Select Case Ramme27
Case Is = 1
Tekstgenre = "Horror"
Case Is = 2
Tekstgenre = "Thriller"
Case Is = 3
Tekstgenre = "Action"
Case Is = 4
Tekstgenre = "Romance"
Case Is = 5
Tekstgenre = "Science Fiction"
Case Is = 6
Tekstgenre = "Adventure"
End Select
End Sub

Det jeg ikke kan få den til er at flytte focus til "format" knappen, jeg har prøvet med mousedown, hvilket resulterede i at forcus blev flyttet men felterne blev ikke opdateret med film genre informationen. Nogle som kan fortælle mig hvordan jeg skal få den til at flytte focus efter opdatering af feltet teksgenre?
-feltet den gerne skulle flytte fra er til_fra_knap30 og den skulle gerne flytte den til format

På forhånd tak.