[Resolvido]Problema com UPDATE

Boa tarde Pessoal,

Meu problema é o seguinte: tenho um formulário no qual faço uma pesquisa baseado no valor selecionado no combobox, após pesquisar os dados são carregados no formulário. Posteriormente o usuário pode alterar os campos e salvar, mas estou tempo problemas com o comando UPDATE que está apresentando a mensagem "erro de sintaxe no comando"

Código:

Private Sub btnSalvar_Click()
    'atualização dos campos Dados Gerais
    If cmbEmpreendimento <> "" Then
            Comando = "UPDATE tb_DadosGerais SET noEmpreendimento ='" & cmbEmpreendimento & "', codSR =" & cmbSR & ", noSUAT ='" & cmbSUAT & "',"
            Comando = Comando & "Gihab =" & cmbGihab & ", Modalidade ='" & cmbModalidade & "', Tomador ='" & txtTomador & "', CNPJ ='" & txtCNPJ & "',"
            Comando = Comando & "SituacaoOp ='" & cmbSituacaoOp & "', DtContratacao = #" & Format(txtDtContratacao, "dd/mm/yyyy") & "#, CtrPJConstrucao ='" & txtCtrPJConstrucao & "',"
            Comando = Comando & "CtrPJHabitacao ='" & txtCtrPJHabitacao & "', CustoTotalObra =" & txtCustoTotalObra & ", ValFinanPJContratado =" & txtValFinanPJContratado & ","
            Comando = Comando & "DtConclusaoObra = #" & Format(txtDtConclusaoObra, "dd/mm/yyyy") & "#, DtLiquidacao = #" & Format(txtDtLiquidacao, "dd/mm/yyyy") & "#, LogUsuario= '" & UCase(Environ("username")) & "', LogDataHora= now() "
            Comando = Comando & "WHERE codEmpreendimento= " & txtCodEmpreendimento & ""
            banco.Execute (Comando)
            MsgBox ("Atualização efetuada com sucesso"), vbInformation + vbOKOnly, "Atualizado"
    Else
        MsgBox ("Atualização não efetuada, não se pode apagar o nome do empreendimento"), vbInformation + vbOKOnly, "Não Atualizado"
    End If
    Limpar
    btnSair.SetFocus
    DoCmd.SetWarnings False
End Sub


Sobressalto que a variável Comando nunca chega completa para ser executada.

Agradeço a atenção

A solução será você abrir Recordset e fazer o update, porque assim penso estar a ultrapassar a quantidade de campos no SET, que o Access permite.

Faça qualquer coisa assim:

Código:

Dim rst As DAO.Recordset

    Set rst = CurrentDb.OpenRecordset("SELECT * FROM tb_DadosGerais WHERE codEmpreendimento= " & Me.txtCodEmpreendimento, dbOpenDynaset)
    
    If rst.RecordCount = 0 Then Exit Sub
    
    rst.MoveLast
    rst.MoveFirst
    
    Do While Not rst.EOF
         rst.Edit
         rst.Fields("noEmpreendimento") = Me.cmbEmpreendimento.Value
         rst.Fields("codSR") = Me.cmbSR.Value
         rst.Fields("noSUAT") = Me.cmbSUAT.Value
         '....bla bla
         rst.Update
         rst.MoveNext
    Loop

 rst.Close
 Set rst = Nothing

Apenas reiniciei o banco e voltou a funcionar, mas não sei o pq. Testei tb o código do colega JPaulo e deu certo.

Agradeço a colaboração.