Åbning 3 forskellige formularer

Hej
Hvad har jeg skrevet forkert?
Når jeg har opdateret feltet [Varegruppe], så skulle gerne 1 af de 3 varegruppe lister åbne, men får jeg det ikke til. (Har sidst rodet med VBA for 5 år siden og har nu brugt "pladsen" til noget andet og husker ikke længere min VBA
.
Private Sub Varegruppe_AfterUpdate()
If [Varegruppe] = 1 Then
  DoCmd.OpenForm [Varegruppe_1]
ElseIf [Varegruppe] = 2 Then
  DoCmd.OpenForm  [Varegruppe_2]
ElseIf [Varegruppe] = 3 Then
  DoCmd.OpenForm [Varegruppe_3]
End If
End Sub