[Resolvido]Combo escolhe form a ser aberto

Gostaria que ao selecionar uma opção uma combo exemplo:
Form1, Form2, Form3....
Abrisse o respectivo form.
Seria utilizado esses form com subform.
Fiz a codoficação em VBA abaixo, só abrindo os dois ao mesmo tempo.
O que fiz de errado?
Obrigado


Private Sub Combinação1_BeforeUpdate(Cancel As Integer)
On Error GoTo Err_Combinação1_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Form1"
DoCmd.OpenForm stDocName, , , stLinkCriteria

stDocName = "Form2"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Combinação1_Click:
Exit Sub

Err_Combinação1_Click:
MsgBox Err.Description
Resume Exit_Combinação1_Click
End Sub

Oi Marcelo td bem?
O código ficaria assim?

Private Sub Combinação1_BeforeUpdate(Cancel As Integer)
On Error GoTo Err_Combinação1_Click

Case Select Me.Combinação1

Case "Form1"
DoCmd.OpenForm 1

Case "Form2"

DoCmd.OpenForm 2

End Select

Exit Sub

Err_Combinação1_Click:
MsgBox Err.Description
Resume Exit_Combinação1_Click
End Sub

Ok.Vou testar quando chegar em casa. o saindo do trabalho agora. Depois eu posto.

Acredite queimou minha placa mae. Vou trocar. Depois te digo. Abracos

Oi marcelo desculpe a demora

Deu erro na seguinte linha "Case Select Me.Combinação6"

Em anexo banco em 2003
http://dl.dropbox.com/u/26997422/bd1.zip

Private Sub Combinação6_BeforeUpdate(Cancel As Integer)
On Error GoTo Err_Combinação6_Click

Case Select Me.Combinação6

Case "form1"
DoCmd.OpenForm 1

Case "form2"

DoCmd.OpenForm 2

End Select

Exit Sub

Err_Combinação6_Click:
MsgBox Err.Description
Resume Exit_Combinação6_Click

End Sub

Ok.
Desculpe a demora
Obrigado e abraços.

Resolveu
Obrigado João e Marcelo
não estou conseguindo finalizar no botão resolvido. Pode ajudar?
Obrigado