Bom Dia pessoal, sou novato no conhecimento em VBA e estou precisando da ajuda de Vocês, estou adaptando um modelo de cadastro que vi aqui para ser usado em um serviço de atenção domiciliar onde os pacientes são visitados no domicílio por uma equipe de profissionais de saúde, não vou ganhar nada com isso porque não estou cobrando para fazer este formulário de cadastro, estou apenas dando minha contribuição em um serviço que tem ajudado milhares de pessoas...

No formulário de cadastro está tudo ok, funcionando perfeitamente, mas no formulário de pesquisa quando executo ele não abre e sou remetido a um trecho do código de programação onde PreecheRecordSet fica destacato e abre uma caixinha de diálogo que diz :
Erro de compilação:
'Sub' ou 'Function' não definida

E em outro trecho logo acima do citado anteriormente fica todo em destaque na cor amarela
Private Sub PopulaListBox(ByVal NomePaciente As String, _
ByVal Admissao As String, _
ByVal Endereco As String, _
ByVal Telefone As String, _
ByVal CEP As String)

Se alguém puder me ajudar eu e milhares de pessoas do programa de atenção domiciliar ficaremo muitíssimo gratos...

Envio anexo a planilha de cadastro