RecordSet com critérios

Boa tarde,

necessito realizar um RecordSet com critérios da seguinte forma.

dim var16 as integer
dim var4 as string
dim var5 as string

Set RsFolha = CurrentDb.OpenRecordset("TBFrequencia")
   
   'Laço para ir de registro em registro, listando todos os estagiários da tabela.
   While Not RsFolha.EOF
           
           var16 = RsFolha.Fields("AnoFrequencia") = me.Ano and me.entregue = sim -> Aqui entrag o lugar onde estou tentando colocar o meu critério.
           var4 = RsFolha.Fields("Freq_Jan") = -1
           var5 = RsFolha.Fields("Freq_Fev") = -1

Boa tarde,
Explique melhor. Não entendi se pretende consultar a tabela ou alterar os registos