Problema Com Caixa de Combinação

Boa Noite
Não tenho muita experiência em bases de dados mas estou a ter um problema tenho um formulário com dois subformulários 1) Processo (Codigo; Processo) 2) DataLancamentos (Codigo; Processo; AnodoProcesso; MesdoProcesso) e 3) DadosdoProcesso (Codigo; Processo; AnodoProcesso; MesdoProcesso; NomeEntidade; Contribuinte; BancoOrigem; NIB).
O Objetivo é que quando selecione na caixa de Caixa de combinação o NomeEntidade atualize na tabela DadosdoProcesso os Campos (NomeEntidade; Contribuinte; BancoOrigem; NIB), utilizei este código que esta dando o seguinte erro:
Compile erro:
User defined type not definet
No que diz respeito aos índice não sei se esta certo assim:
tabela.Index = "NomeIndice"
tabela.Seek "=", Me![Nome]
Gostaria que alguém me ajuda-se
Obrigado

Option Compare Database
Private Sub NomeEntidade_Change()
' Zona de declaraçoes das Variabeis
Dim tabela As Recordset
Dim MyDB As Database
'Corpo do programa
Set MyDB = CurrentDb()
Set tabela = MyDB.OpenRecordset("FichaEntidadeFornecedor")
tabela.Index = "NomeIndice"
tabela.Seek "=", Me![Nome]

If tabela.NoMatch Then
   MsgBox "Neste Momento a tabela não Contem Nenhun Registo ou Nome não Existe", 64, "Informaçao"
Else
   Me![NomeEntidade] = tabela![NomeEntidade]
   Me![Contribuinte] = tabela![Contribuinte]
   Me![Banco] = tabela![Banco]
   Me![NIB] = tabela![NIB]
   
   tabela.Close
   
End If

End Sub

Bom dia,

Seria mais pratico se pudesse postar a BD para dar uma vista de olhos....

Obrigado.