[Resolvido]Problema com formulario sobrepondo outro

Coloque no seu formulario frmPesquisa;

Private Sub Form_Open(Cancel As Integer)
Me.cboPesquisa.Visible = False
DoCmd.Close acForm, "inicio"
End Sub


Private Sub cboPesquisa_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue ' Inibe msg padrão do Access.
DoCmd.Close acForm, "inicio"
If MsgBox("Nome não cadastrado: '" & NewData & "'" & vbCrLf _
& "Deseja Cadastrar?", 32 + vbYesNo) = 6 Then
DoCmd.OpenForm "CADASTRO DE FUNCIONÁRIO", , , , acFormAdd, _
acDialog, NewData
' A execução deste código fica interrompida aqui até o
' fechamento do formulário.
cboPesquisa = UCase(NewData) ' Converte o texto para maiúsculas.
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
End Sub

Quando eu coloco esse codigo ele da erro no cboPesquisa_NotInList

Private Sub Form_Open(Cancel As Integer)
Me.cboPesquisa.Visible = False
DoCmd.Close acForm, "inicio"
End Sub


Private Sub cboPesquisa_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue ' Inibe msg padrão do Access.
DoCmd.Close acForm, "inicio"
If MsgBox("Nome não cadastrado: '" & NewData & "'" & vbCrLf _
& "Deseja Cadastrar?", 32 + vbYesNo) = 6 Then
DoCmd.OpenForm "CADASTRO DE FUNCIONÁRIO", , , , acFormAdd, _
acDialog, NewData
' A execução deste código fica interrompida aqui até o
' fechamento do formulário.
cboPesquisa = UCase(NewData) ' Converte o texto para maiúsculas.
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
End Sub


O q eu faço ?

É isto assim;

http://dl.dropbox.com/u/771097/teste_aplicativo_rh_OLD.rar

No exemplo que lhe mandei não fica mesmo, veja bem.