Verificação de registros na tabela

Boas pessoal,

Dei uma olhada e não achei como comparar tabelas via vba, com certeza deve ter alguns exemplos mas não achei ¬¬.
Então decidi fazer eu mesmo, mas, o problema é que o jeito que fiz me parece muiiito muito lento.
Segue o código caso alguém possa indicar como melhorar ou até mesmo indicar a maneira mais apropriada para fazer agradeço.


Y = DLast("ID", "tblPesquisa")
ID = DLookup("ID", "tblPesquisa")

X = 1
'MsgBox "Sera feita a remoção de pesquisas antigas"

Do While X < Y

AA = DLookup("A", "tblPesquisa", "ID= " & ID + X & "")
BB = DLookup("B", "tblPesquisa", "ID= " & ID + X & "")
CC = DLookup("C", "tblPesquisa", "ID= " & ID + X & "")
DD = DLookup("D", "tblPesquisa", "ID= " & ID + X & "")
EE = DLookup("E", "tblPesquisa", "ID= " & ID + X & "")
FF = DLookup("F", "tblPesquisa", "ID= " & ID + X & "")

Sequencia = G & ";" & H & ";" & I & ";" & J & ";" & K & ";" & Z
SequenciaVerific = AA & ";" & BB & ";" & CC & ";" & DD & ";" & EE & ";" & FF

If Sequencia = SequenciaVerific Then
'MsgBox "Esta sequencia foi localizada em pesquisas anteriores: " & SequenciaVerific
Z = Z + 1
GoTo LineVerifica
End If


X = X + 1

Loop


São mais de 1.500 pesquisas na tabela e alem deste loop existem mais 3 rodando no mesmo click, dai a lentidão, mas esta parte em particular demora
muito pra rodar. Existe alguma maneira de verificar se minha Sequencia já esta cadastrada na tabela mais fácil?

Da uma olhada na mensagem 11, e veja se ajuda...

https://www.maximoaccess.com/t23899-resolvidocomparar-registros-em-duas-tabelas

Bom dia,
Você poderia informar o código desde as declarações de variaveis?
E qual o objetivo do código? Não entendi direito...