Localizar e copiar valor através de DAO.Recordset

Uso o procedimento abaixo para identificar se um determinado valor já foi inserido em meu formulário folha de dados.

Dim rs As DAO.Recordset, frm As Form
Set frm = Me
Set rs = Me.RecordsetClone

If Me.CodEvento1 = 17 Or Me.CodEvento1 = 18 Then
Else
rs.FindFirst "CodEvento1= " & Me.CodEvento1
If Not rs.NoMatch Then
frm.Undo
frm.Bookmark = rs.Bookmark
rs.Edit
If rs!CodEvento1 = Me.CodEvento1 Then
DoCmd.SearchForRecord , "", acFirst, rs!CodEvento1
rs.Update
MsgBox "Evento já inserido nesta Folha.", vbInformation, "Registro Duplicado"
End If
End If

Preciso adaptá-lo para encontrar um valor.
Se rs.CodEvento1 = 1, então capturar para a variável varHoras o valor do campo RerValor2 deste registro.

Pode tentar assim:

Código:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM NomeDaTabela WHERE CodEvento=1")

If rs.RecordCount > 0 Then
    varHoras = rs!RerValor2
Else
    MsgBox "Registro inexistente", vbCritical, "Atenção"
End If

rs.Close
Set rs = Nothing

Se eu usar DLookup, o desempenho melhora ou piora em relação OpenRecordset?

Acredito que não terá grande diferença, uma vez que em ambos os casos, é possível ir direto no registro específico se passar o número da ID na filtragem. Caso a sua base de dados tenha uma grande quantidade de registros, pode até fazer um teste para ver qual processo se sai melhor. Para isso, poderia usar o evento "No timer" do formulário e uma contagem de tempo para ver qual retorna o registro no menor espaço de tempo.

Ótimo.

Vou testar.

Outra vez, valeu, mesmo!rsrs