[Resolvido]Editar campo Sim/Não numa tabela

Bom dia Amigos

Preciso de editar um campo Sim/Não de uma tabela. O nome do campo na tabela é "Quitado"

por defeito o campo tem o valor predefinido "Não"

Estou a tentar usar este código, para o alterar para "Sim" mas não edita o campo na tabela

Obrigado

PS - O Campo LN é número ..

Dim DB1 As DAO.Database, rs As DAO.Recordset
   Set DB1 = CurrentDb()
   Set rs = DB1.OpenRecordset("TabRecebimentos", dbOpenDynaset)
   rs.FindFirst "ln = " & Me.LN
   rs.Edit
   rs("Quitada") = rs("Sim")
   rs.UPDATE
   rs.Close
   Set rs = Nothing
   Set DB1 = Nothing

Bom dia e excelente sábado!

Alterei seu código. Veja os comentários:

Código:

Dim DB1 As DAO.Database, rs As DAO.Recordset
Set DB1 = CurrentDb()
'Filtro o registro a ser etitado direto na abertura do recodset, via sql
Set rs = DB1.OpenRecordset("SELECT * FROM TabRecebimentos WHERE LN=" & Me!LN)
'Como já filtramos o registro a ser alterado, não preciso da linha abaixo, por isso deixei comentada
'rs.FindFirst "ln = " & Me.LN
rs.Edit
'Campos sim/não são respectivamente True/False. Como quero definor como Sim, basta passar True, conforme abaixo:
rs("Quitada") = True
rs.UPDATE
rs.Close
Set rs = Nothing
Set DB1 = Nothing

Obrigado Marcelo

Bom fim semana

Grato Assis.