Eliminar un registro desde el listview

[erick185]

Buenas,, el asunto es el siguiente: necesito eliminar un dato seleccionado de un listview completamente de la base de dato en Access,yo tngo un codigo pero solo me borra el primero de la fila y no el que selecciono aunque en el momento lo borra el selecionado de la lista pero cuando actualizo vuelve ha aparecer y borra el primero de la fila y no se q hacer este es el codigo:

' Borrando seleccion del listview
Private Sub Command10_Click()
Set bds2 = OpenDatabase(App.Path & "\DATOS1.mdb")
  Set Reg2 = bds2.OpenRecordset("select  * from LISTA")
 
     For i = List.ListItems.Count To 1 Step -1
      If List.ListItems(i).Selected Then
       List.ListItems.Remove i
       Reg2.Delete
      End If
     Next
   
   Reg2.Close
  bds2.Close
End Sub

Cualquier ayuda sera bienvenida ...!

Salu2

[NYlOn]

Cambiar:

Código [Seleccionar] Expandir

If List.ListItems(i).Selected Then
por

Código [Seleccionar] Expandir

If List.ListItems(i).Selected = True Then