2 cositas con Listview y recordset

[luciano]

Probá asi. salu2

Command1, ListView1

Código:

Private Sub Command1_Click()

If Not ListView1.SelectedItem Is Nothing Then
   If MsgBox("Eliminar ?", vbQuestion + vbYesNo) = vbYes Then
    ListView1.ListItems.Remove (ListView1.SelectedItem.Index)
    ListView1.Sorted = True
   End If
End If
End Sub

Private Sub Form_Load()
For i = 0 To 10
ListView1.ListItems.Add , , i
Next
End Sub