[Resolvido]Condição na Função

boa noite pessoal estou com um problema nessa função gostaria que antes de adicionar ele verifica-se se o candidato ja esta adicionado se tiver não adiciona se nao tiver adiciona.

Public Sub Seleciona()
Dim StrSQL As String
Dim Rs As DAO.Recordset
Dim DB As DAO.Database

StrSQL = "SELECT * FROM SMS WHERE enviar =-1;"

'Seta o Db
Set DB = CurrentDb
'Seta o Recordset com a SQL
Set Rs = CurrentDb.OpenRecordset(StrSQL)

Do While Not Rs.EOF

CurrentDb.Execute "INSERT INTO SMS_Selecionados ( status,idcandidato,candidato,ddd, celular1,enviar)" _
& " SELECT """ & Rs!Status & """,""" & Rs!idCandidato & """,""" & Rs!Candidato & """,""" & Rs!DDD & """, """ & Rs!Celular1 & """, """ & Rs!enviar & """;"

Rs.MoveNext
Loop
End Sub


Desde já agradeço a todos a atenção.

Bom dia

Public Sub Seleciona()
Dim StrSQL As String
Dim Rs As DAO.Recordset,Rst as DAO.Recordset
Dim DB As DAO.Database

StrSQL = "SELECT * FROM SMS WHERE enviar =-1;"

'Seta o Db
Set DB = CurrentDb
'Seta o Recordset com a SQL
Set Rs = CurrentDb.OpenRecordset(StrSQL)
Set Rst = CurrentDb.OpenRecordset("SELECT * FROM SMS_Selecionados")

Do While Not Rs.EOF
'verifica se já existe na tabela
rst.findfirst "idcandidato=" & Rs!idCandidato
if rst.nomatch then
CurrentDb.Execute "INSERT INTO SMS_Selecionados ( status,idcandidato,candidato,ddd, celular1,enviar)" _
& " SELECT """ & Rs!Status & """,""" & Rs!idCandidato & """,""" & Rs!Candidato & """,""" & Rs!DDD & """, """ & Rs!Celular1 & """, """ & Rs!enviar & """;"
end if
Rs.MoveNext
Loop
End Sub

O Alexandre obrigado cara fico top show.