[Resolvido]Acrescentar informações à tabela com referência a partir de botão do formulário

Boa tarde pessoal do fórum!  
Alguém pode me ajudar? Estou com problema para acrescentar informações por um botão de um formulário para uma tabela.
Eu preciso que as informações sejam acrescentadas com referência ao pedido a qual estou tratando, mas o código não dá certo.
Segue o código:

Private Sub btFinalizado_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("tbl_status_log")
'verifica se a data Finalizado já está preenchida
If IsDate(DLookup("stsFinalizado","tbl_status_log","pedido='" & txtPed.Value & "'")) then msgbox "Já existe data de finalização desse pedido." : goto naoexecuta

'verifica se a data de finalização é posterior a data de faturamento
If Now() < DLookup("DataFaturado","tbl_status_log","pedido='" & 1 & "'")  then msgbox "A data de finalização não pode ser anterior à data de faturamento." : goto naoexecuta

rs.AddNew Select(" pedido FROM tb_status_log WHERE pedido= '" & Me.txtPed & "'"
rs("DataFinalizado") = Now()
rs("stsFinalizado") = True
rs("StatusFinal") = "Finalizado"
rs.Update

NaoExecuta:
  rs.Close
  db.Close
  Me.txtPed.SetFocus

End Sub

Olá Isabella Farinazzo,

Se disponibilizar base de dados com parte envolvida, fica mais fácil para qualquer membro compreender melhor e poder ajudar.
Abraço

Boa tarde,
Agradeço ao auxílio.
Consegui resolver alterando o código. Ficou assim:

Private Sub btFinalizado_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("tbl_status_log")
'verifica se a data Finalizado já está preenchida
If IsDate(DLookup("stsFinalizado","tbl_status_log","pedido='" & txtPed.Value & "'")) then msgbox "Já existe data de finalização desse pedido." : goto naoexecuta

'verifica se a data de finalização é posterior a data de faturamento
If Now() < DLookup("DataFaturado","tbl_status_log","pedido='" & 1 & "'")  then msgbox "A data de finalização não pode ser anterior à data de faturamento." : goto naoexecuta

CurrentDb.Execute "UPDATE tbl_status_log SET StatusFinal = '" & "Finalizado" & "' WHERE pedido='" & Me.txtPed & "'"
CurrentDb.Execute "UPDATE tbl_status_log SET stsFinalizado = '" & "1" & "' WHERE pedido='" & Me.txtPed & "'"
CurrentDb.Execute "UPDATE tbl_status_log SET DataFinalizado = '" & Now() & "' WHERE pedido='" & Me.txtPed & "'"
Me.txtAR.SetFocus

NaoExecuta:
 rs.Close
 db.Close
 Me.txtPed.SetFocus

End Sub

Olá Isabella Farinazzo,
Obrigado pelo retorno, os utilizadores do fórum agradecem.
É mesmo isso, com uma consulta atualizar.

No entanto não vejo a necessidade de abrir o recordSet, assim deveria funcionar:

Código:

'Dim db As Database
'Dim rs As Recordset
'Set db = CurrentDb
'Set rs = db.OpenRecordset("tbl_status_log")

'verifica se a data Finalizado já está preenchida
If IsDate(DLookup("stsFinalizado", "tbl_status_log", "pedido='" & txtPed.Value & "'")) Then MsgBox "Já existe data de finalização desse pedido.": GoTo NaoExecuta

'verifica se a data de finalização é posterior a data de faturamento
If Now() < DLookup("DataFaturado", "tbl_status_log", "pedido='" & 1 & "'") Then MsgBox "A data de finalização não pode ser anterior à data de faturamento.": GoTo NaoExecuta

CurrentDb.Execute "UPDATE tbl_status_log SET StatusFinal = '" & "Finalizado" & "' WHERE pedido='" & Me.txtPed & "'"
CurrentDb.Execute "UPDATE tbl_status_log SET stsFinalizado = '" & "1" & "' WHERE pedido='" & Me.txtPed & "'"
CurrentDb.Execute "UPDATE tbl_status_log SET DataFinalizado = '" & Now() & "' WHERE pedido='" & Me.txtPed & "'"
DoCmd.DoEvents
Me.txtAR.SetFocus

NaoExecuta:
' rs.Close
' db.Close
 Me.txtPed.SetFocus

Abraço