pessoal, preciso de uma ajudasinha.

eu tenho um listbox1 que dentro dele tem alguns checkbox. Do lado desse listbox1 tem outro listbox2. Nesse listbox2 vão aparecer vários códigos de produtos, quando mandar gravar, botão incluir.
Como faço para conciliar aqueles checkbox do listbox1 há algum código de produto (listbox2)?
porque quando eu clicar em alterar vai aparecer na tabela do banco um campo como inativo. porque ele selecionou o checkbox de tal código do produto.

eu estou fazendo assim, mais está dando erro na sintaxe update:

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
                    
  
                    
    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 & "Where codigo_pedido = " & lstcodigopedido.Text & " "
    'MsgBox sql
    'Open App.Path & "SQL.txt" For Output As #1
    'Print #1, sql
    'Close #1
    db.Execute (sql)
   
     Set rs = db.OpenRecordset(sql)
        If Not (rs.BOF And rs.EOF) Then
            rs.MoveMin
            lstcodigopedido.Text = IIf(IsNull(rs("codigo_pedido")), "", rs("codigo_pedido"))
            lstqtdepedido.Text = IIf(IsNull(rs("qtde")), "", rs("qtde"))
            lstpreco.Text = IIf(IsNull(rs("valor")), "", rs("valor"))
            lstvlrbruto.Text = IIf(IsNull(rs("valor_bruto_i")), "", rs("valor_bruto_i"))
            lstvlrdesctotal.Text = IIf(IsNull(rs("valor_desconto_total_i")), "", rs("valor_desconto_total_i"))
            lstvlrliq.Text = IIf(IsNull(rs("valor_liquido_i")), "", rs("valor_liquido_i"))
            lstChk.Text = IIf(IsNull(rs("situacao")), "", rs("situacao"))
        Else
            lstcodigopedido.Text = ""
        End If
        rs.Close
       
  
   
    MsgBox ("Alteração OK")
   
    sql2 = " "
   
    End If

me ajudem, por favor.

valeu