[Resolvido]Erro: Sub ou function não definida

Boa tarde Amigos estou o seguinte problema em uma code:

Sub ou function não definida

Private Sub Comando10_Click()
On Error GoTo Err_Comando10_Click

Dim stDocName As String

stDocName = "Pesqemp.Empresa"
Empresas ""
DoCmd.RunMacro stDocName

Exit_Comando10_Click:
Exit Sub

Err_Comando10_Click:
MsgBox Err.Description
Resume Exit_Comando10_Click

End Sub


Alguem pode me dar uma luz?

Grato

Kleyton

Obrigado norbs...

Tenho o mesmo problema nesta code:

Option Compare Database
Public nlogoff As Boolean
Public login As login
Type login
id As Long
Usuario As String
End Type

Public Function fncLogoff()
'----------------------------------
'fecha todos os formulários e
'reabre tela de login
'----------------------------------
On Error Resume Next
nlogoff = False
Call fncFechaForms(True)
login.id = 0: login.Usuario = ""
DoCmd.OpenForm "frmLogin", , , , , acDialog
End Function

Public Function fncPermissões(NomeForm As Form)
On Error Resume Next
NomeForm.AllowEdits = IIf(login.id <> 1, 0, -1)
NomeForm.AllowDeletions = IIf(login.id <> 1, 0, -1)
NomeForm.AllowAdditions = IIf(login.id <> 1, 0, -1)
End Function

é uma tela de login no BD

Grato

Kleyton

Ok. muito obrigado