ayuda por favor

[josetisera]

mi problemas es el siguiente, tengo un listview y quiero eliminar de la base el campo que esta seleccionado en el listview, pero siempre me tira error " variable de tipo objext o la variable de bloque with no esta establecida" y lo que yo programe es esto

If Listped.SelectedItem.Selected <> -1 Then
MsgBox "No Hay Elementos Seleccionados En La Lista", vbExclamation, "StarJeans"
Else
Listped.ListItems.Remove Listped.SelectedItem.Index
strpedidos = "delete * from pedidos where idpedido=" & Listped.SelectedItem & ""
db.Execute strpedidos
cargaped ("SELECT Pedidos.idpedido, Pedidos.apellido, Pedidos.Nombre, Pedidos.dni, Pedidos.articulo, Pedidos.talle, Pedidos.marca, Pedidos.sexo FROM Pedidos")
MsgBox "El Registro Fue Eliminado Exitosamente", vbExclamation, "StarJeans"
End If

si alguien me pudiera ayudar con esto se lo voy a agradecer mucho