[Resolvido]Comando para abrir formulário com condição

Boa noite

Queria um comando para abrir um formulário com condição:

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "QuestionarioConsulta"
DoCmd.OpenForm stDocName, , , stLinkCriteria
stLinkCriteria = "[CódigodoPaciente]=" & Me![CódigodoPaciente]

DoCmd.OpenForm stDocName, , , stLinkCriteria

Mas ao abrir este "FormQuestionarioConsulta" se um campo que está neste Formulario "Me.Inicio" for nulo ele não abrisse este Form e abrisse outro chamado "FormInserir"

O critério é o mesmo? Se for, talvez assim:

Dim stDocName As String
Dim stLinkCriteria As String

If IsNull(Me.Inicio) Or Me.Inicio = "" Then
stDocName = "FormInserir"
Else
stDocName = "QuestionarioConsulta"
End If
DoCmd.OpenForm stDocName, , , stLinkCriteria
stLinkCriteria = "[CódigodoPaciente]=" & Me![CódigodoPaciente]

DoCmd.OpenForm stDocName, , , stLinkCriteria

Obrigado Criquio
Foi a primeira certinho e direitinho ....

Obrigado pelo retorno.