erro de sintaxe sql

[rafa-martin 2]

alguém sabe me dizer o que tem de errado nessa instrução sql? sql = "Update itens_pedido2 set qtde = " & lstqtdepedido.Text & ", " sql = sql & "valor = '" & lstpreco.Text & "', " sql = sql & "valor_bruto_i = " & lstvlrbruto.Text & ", " sql = sql & "valor_desconto_total_i = " & lstvlrdesctotal.Text & ", " sql = sql & "valor_liquio_i = " & lstvlrliq.Text & ", " sql = sql & "situacao = '" & lstChk.Text & "' " sql = sql & "ccodigo_pedido = " & lstcodigopedido.Text & " " db.Execute(sql)valeu

[eriva_br 7]

sql = "Update itens_pedido2 set qtde = " & lstqtdepedido.Text & ", "sql = sql & "valor = '" & lstpreco.Text & "', "sql = sql & "valor_bruto_i = " & lstvlrbruto.Text & ", "sql = sql & "valor_desconto_total_i = " & lstvlrdesctotal.Text & ", "sql = sql & "valor_liquio_i = " & lstvlrliq.Text & ", "sql = sql & "situacao = '" & lstChk.Text & "'," <-- tava faltando uma virgula aquisql = sql & "ccodigo_pedido = " & lstcodigopedido.Text & " "db.Execute(sql)se não funcionar passa a msg do erro que esta retornando

[rafa-martin 2]

altrei o update.o código abaixo é pro botão alteração.Dim confirmar As Integer Dim i As Integer For i = 0 To lstcodigopedido.ListCount - 1 If lstcodigopedido.Selected(i) = True Then lstChk.Selected(i) = True Else lstChk.Selected(i) = False End If Next 'Dim confirmar As Integer confirmar = MsgBox("Confirma a Alteração", vbQuestion + vbYesNo, "Confirmação") If confirmar = 6 Then sql = "Update itens_pedido2 set qtde = " & lstqtdepedido.Text & ", " sql = sql & "valor = '" & lstpreco.Text & "', " sql = sql & "valor_bruto_i = " & lstvlrbruto.Text & ", " sql = sql & "valor_desconto_total_i = " & lstvlrdesctotal.Text & ", " sql = sql & "valor_liquio_i = " & lstvlrliq.Text & ", " sql = sql & "situacao = '" & lstChk.Text & "', " sql = sql & "codigo_pedido = " & lstcodigopedido.Text & "" sql = sql & "Where situacao = '" & lstChk.Selected(i) & "' " MsgBox sql Open App.Path & "\SQL.txt" For Output As #1 Print #1, sql Close #1 Set rs = db.OpenRecordset(sql) Do While rs.EOF = False lstcodigopedido.AddItem rs!codigo_pedido lstqtdepedido.AddItem rs!qtde lstpreco.AddItem rs!Valor lstvlrbruto.AddItem rs!valor_bruto_i lstvlrdesctotal.AddItem rs!valor_desconto_total_i lstvlrliq.AddItem rs!valor_liquido_i rs.MoveNext Loop rs.Close MsgBox ("Alteração OK") sql2 = " "ele está trazendo tudo vazio. mesno a situação, que é um listbox tendo um checkbox.veja o que pode estar errado, por favor?valeu

[rafa-martin 2]

cara achei o erro.o correto é:For i = 0 To (lstcodigopedido.ListCount - 1)sql = "Update itens_pedido2 set desconto = '" & lstdesc.List(i) & "', "sql = sql & "qtde = " & lstqtdepedido.List(i) & ", "sql = sql & "valor = '" & lstpreco.List(i) & "', "sql = sql & "valor_bruto_i = " & lstvlrbruto.List(i) & ", "sql = sql & "valor_desconto_total_i = " & lstvlrdesctotal.List(i) & ", "sql = sql & "valor_liquido_i = " & lstvlrliq.List(i) & ", "sql = sql & "situacao = '" & lstChk.List(i) & "' "sql = sql & "Where codigo_pedido = " & lstcodigopedido.List(i) & ""next ivaleu por tudo