Access - error de compilacion

Hola ..mi problema es el siguiente ,,no se manejar bien el recordset . copie un ejemplo
de esta pagina pero me sale error de compilacion.
mi codigo es el siguiente

Option Compare Database
Option Explicit
Private Sub Comando0_Click()
Dim mibase As Database
Dim mitabla As Recordset
Set mibase = DBEngine.Workspaces(0).Databases(0)
Set mitabla = mibase.OpenRecordset("empleado", DB_OPEN_DYNASET)
mitabla.MoveFirst
Do Until mitabla.EOF
If mitabla!codigo = "1111" Then
mitabla.Edit
mitabla!codigo = "7777"
mitabla.Update
End If
mitabla.MoveNext
Loop
mitabla.Close
End Sub

pero me da el siguiente error
error de compilacion
se esperaba un tipo definido por el usuario, no un proyecto

Mi base de datos se llama EMPRESA extension mdb
mi tabla EMPLEADO

Proba cambiando el codigo que esta entre !!!!!!!
ESpero haberte sido util

Option Compare Database
Option Explicit
Private Sub Comando0_Click()
Dim mibase As Database
Dim mitabla As Recordset
!!!!
Set mibase = opendatabase("path de donde esta tu base Ej. "C:\empleados\empresa.mdb")
Set mitabla = mibase.OpenRecordset("empleado", dbOPentable)
!!!
mitabla.MoveFirst
Do Until mitabla.EOF
If mitabla!codigo = "1111" Then
mitabla.Edit
mitabla!codigo = "7777"
mitabla.Update
End If
mitabla.MoveNext
Loop
mitabla.Close
End Sub

pero me da el siguiente error
error de compilacion
se esperaba un tipo definido por el usuario, no un proyecto

Mi base de datos se llama EMPRESA extension mdb
mi tabla EMPLEADO

Gracias por la ayuda, cambie el path de la base de datos en set mibase ,pero me sigue dando error

Microsoft Visual Basic
Error de compilación:
No se ha definido el tipo definido por el usuario

el error me lo esta marcando con azul en el siguiente codigo
Dim mibase As Database

es como que no encuentra ese tipo de variable Database , hay que definirla en algun lado o hay que hacer algo raro...?
el boton tiene que ser especial o algo asi??

Si pueden Ayudarme

Hola.

Lo que te pasa es que tines una estructura mal terminada.

fijate en el ultimp copiar pegar que realizaste,

al if sin su ifend
algun sub son su end

...

access se confunde mucho con esto.

es posible que el error este como parte de codigo de algun objeto borrado.

Un saludo.