problema con listbox

[laulaurys]

GeoAvila ese post ya lo habia leido pero no es lo que yo busco....porque yo tengo un solo LISTBOX, donde muestro items, y quiero guarda el codigo correspondiente (que no me lo muestra el listbox, porque es otro campo) buscandolo con algun selec , tengo asi por el momento


sql = "SELECT * FROM [Acuerdo_Deudas_Item]"

rs.Open sql, cnn, adOpenDynamic, adLockOptimistic

For c = 0 To lista_item.ListCount

If lista_item.Selected(1) = True Then
rs.AddNew
rs!Id_Contratista = id_proveedor
rs!ID_Siderca = ID_Siderca
campo = lista_item.List(c)
Sql2 = "SELECT Pos FROM [Acuerdo_Deudas_Item] WHERE Item='" & campo & "'"
rs!Item = lista_item.Selected(1)
rs.Update
End If
Next c

rs.Close
Set rs = Nothing


en base al item que selecciona quiero buscar el codigo y guardarlo en otra tabla, pero no se ahi como ejecutar el sql ya que no puedo hacer rs.open sql...., no me lo permite....yo busque algo parecido en los post y no encontre

Por otro lado disculpa que te diga pero Mexican tiene razon, a veces los titulos no son intuitivos...gracias y saludos