Atualizar dados no banco fdb

boa tade alguem pode me da uma luz

tenho esse codigo mas nao to conseguindo fazer com q ele altere dados no banco

Public Conexao As New ADODB.Connection 'variavel objeto de controle do banco de dado como o data
Public cmd_conexao As New ADODB.Command 'variavel de controle do tipo de operação
Public rsL As New ADODB.Recordset 'recordset da tabela

Dim con As ADODB.Connection
Dim strSQL As String
Set con = New ADODB.Connection
Set rsu = New ADODB.Recordset
Conexao.ConnectionString = "DRIVER=Firebird/InterBase(r) driver;" & _
"DBNAME=" & Mid(CurrentProject.Path, 1, 2) & "\SysPosto\Dados\BDPOSTO.FDB;" & _
"UID=SYSDBA;" & _
"PWD=masterkey"
Conexao.Open

sql = "Update LANCCAR"
sql = sql & "SET vlrLc=" & Replace(Format(me!Lvlr, "######0.00"), ",", ".") & "','"
sql = sql & "Where Id='2529'"
Conexao.Execute (sql)

Boa tarde
Será?
sql = "Update LANCCAR"
sql = sql & " SET vlrLc=" & Replace(Format(me!Lvlr, "######0.00"), ",", ".")
sql = sql & " Where Id=2529"
Conexao.Execute (sql)

Alexandre nao deu certo

o meu campo id e autonumeração

Bom dia

Mas não será pelo campo id, o erro será de outra origem