Access - Problema con BBDD Acess y Visual Basic

Hola a todos.

Os escribo porque debo "arreglar" una base de datos en mi trabajo que no funciona. Yo pincho a un botón que se llama (TIPO EMPRESA) y me debería de salir una selección, y me da este error:"La expresión al hacer click, que introdujo como valor de la propiedad de evento produjo un error. Ocurrió un problema mientras "NOMBRE_BBDD" se comunicaba con el servidor OLE.

La BBDD tiene muchos años (es probable que se hiciese en ACCESS 98).

Os copio el código del evento a ver si me podeis ayudarlo a traducirlo. Muchísimas gracias por anticipado!!

Private Sub Botón_TIPO_DE_EMPRESA_Click()
On Error GoTo Err_Botón_TIPO_DE_EMPRESA_Click

Dim stDocName As String
Dim stLinkCriteria As String

Forms![Entrada EMPRESA].Refresh

stDocName = "Subform Tipos de una Empresa"

stLinkCriteria = "[Empresa]=" & "'" & Me![Empresa] & "'"
DoCmd.OpenForm stDocName, acFormDS, , stLinkCriteria

Exit_Botón_TIPO_DE_EMPRESA_Click:
Exit Sub

Err_Botón_TIPO_DE_EMPRESA_Click:
MsgBox "Hola Mundo"
Resume Exit_Botón_TIPO_DE_EMPRESA_Click
End Sub

Es probable que tengas desubicadas las tablas o estas llamando a algun objeto que no existe.