atualizar dado de uma tabela, pesquisando por uma caixa de listagem (access)

Ola pessoal,

Tenho uma listbox mostrando contas a pagar, queria poder selecionar uma conta e deixa-la como paga apenas clicando no botao "pagar", pra isso usei o codigo abaixo, onde estou errando?

Dim db As dao.Database, rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset(("Ctas"))

strCriterio = "[CodCta]=" & Me.listatitfixas.Column(0)
CurrentDb.Execute ("UPDATE Ctas SET Ctas.StatusConta = 1 WHERE ((Ctas.CodCta)=Me.listatitfixas.Column(0)"), , , strCriterio

rs.Update
rs.Close
db.Close