Erro de compilação

O seu Access é 64 bits?

Se for, no código do formulário FrmCadastro, voce deve colocar o "PtrSafe" na declaração:


Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long

Private Declare PtrSafe Function GetFocus Lib "user32" () As Long

Em seguida, vá ao menu Depurar>>Compilar Database2
Obs: Ao tentar compilar a aplicação, vai gerar outro erro: uma variável global que não foi localizada. É necessário declará-la (Global as )

Espero ter ajudado.

Boa sorte