How to delete record data from database in listview

hi can someone help me how to delete selected data record from database in listview .

Each ListItem could have its Tag property assigned the primary key (or some key) of the database row it corresponds to. Use the SelectedItem's Tag to delete the row.

Private Sub del_Click()
confirm = MsgBox("Do you want to delete the Employee Record", vbYesNo + vbCritical, "Deletion Confirmation")
If confirm = vbYes Then
Set rs = New ADODB.Recordset
rs.ActiveConnection = con
rs.CursorLocation = adUseClient
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
rs.Source = "SELECT * FROM ATTENDANCE where EMPID= '" & Trim(Listview1.SelectedItem) & "'"
rs.Open
If Not rs.EOF Then
With rs
'delete data from listview and database
.Delete adAffectCurrent
.MoveNext
End With
Listview1.ListItems.Clear

MsgBox "Record successfully deleted..", vbInformation, "Success"

End If
loaddata
End If
End Sub


I tried this code but it deleted first item in listview