deletar registro de tabela via listbox

[marcia232865 0]

oi gente, usando listview, para deletar um registro selecionado de uma tabela, faz assim:conexao.Execute "delete from ven where ven_cod = " & venlista.SelectedItem.Text, ok??eu quero fazer a mesma coisa mas numa listbox, pode?????

[marcia232865 0]

oi, consegui, é semelhante ao listview, vou postar aqui, se alguem um dia precisar....lsbvei_acs é o nome do listboxpara inserir os dados da tabela no listbox:lsbvei_acs.Clear .... Do Until rs.EOF Verifica_RS1 rs1.Open "select * from acs where acs_cod = " & rs("acs_cod"), cnn lsbvei_acs.AddItem rs1("acs_cod") & " - " & rs1("acs_des") lsbvei_acs.ItemData(lsbvei_acs.NewIndex) = rs1("acs_cod") rs.MoveNext Loop End Ifdepois, pra excluir, :vacs_cod = lsbvei_acs.ItemData(lsbvei_acs.ListIndex)If MsgBox("Deseja realmente excluir o registro : " & (lsbvei_acs.List(lsbvei_acs.ListIndex)), vbYesNo) = vbYes Then cnn.Execute "delete from vei_acs where vei_cod = " & codigo & " and acs_cod= " & vacs_cod & ""