[Resolvido]Verificar se já existe registro de uma tabela em outra

Private Sub SeuBotão_Click()

CurrentDb.Execute "INSERT INTO Dados (Proposta, Nome, Carteira, CR)" _
& " SELECT Proposta, NomeProp, CarteiraProp, CompResProp" _
& " From Propostas" _
& " WHERE (Proposta NOT IN" _
            & " (SELECT Proposta" _
                   & " FROM Dados) AND NomeProp NOT IN" _
             & " (SELECT Nome" _
                   & " FROM Dados) AND CarteiraProp NOT IN" _
             & " (SELECT Carteira" _
                   & " FROM Dados) AND CompResProp NOT IN" _
             & " (SELECT CR" _
                   & " FROM Dados))"

End Sub

Código:

Private Sub Comando12_Click()
'By JPaulo ® Maximo Access
Dim strCampo As String
Dim RstPropostas As Recordset
Dim RstDados As Recordset

Set RstPropostas = CurrentDb.OpenRecordset("Propostas")
    Do Until RstPropostas.EOF
Set RstDados = CurrentDb.OpenRecordset("Select * From Dados Where Proposta ='" & RstPropostas("Proposta") & "'")

    If Not RstDados.EOF And Not RstDados.BOF Then
    strCampo = "Proposta"
    If RstPropostas(strCampo).Value <> RstDados(strCampo).Value Then
    End If
    Else
      RstDados.AddNew
      RstDados!Proposta = RstPropostas!Proposta
      RstDados.Update
    End If
 
    RstPropostas.MoveNext
Loop

RstPropostas.Close
RstDados.Close
Set RstPropostas = Nothing
Set RstDados = Nothing
End Sub