删除listview选中行的同时删除SQL数据库指定一行记录

Private Sub CmdDel_Click()
If ListView1.ListItems.Count <= 0 Then MsgBox "没有选择任何数据!", , "操作提示": Exit Sub
ItemID = ListView1.SelectedItem.Text
If MsgBox("是否要删除所选记录？", 48 + vbYesNo, "操作提示") = vbNo Then
Exit Sub
End If
Set rs = Selectsql(SQL) '连接并打开数据库 SQL = "select * from UserInfo where castID=" & ItemID & " "
rs.Delete rs.MoveNext
'更新listview1~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Call addXX
MsgBox "删除成功!", 64, "操作成功"
End Sub
```````````````````````````````````````````````````````````````````````````````````
请问为什么每次删除时总是删除数据库的第一行？我要删除listview中的选中行同时删除SQL数据库的对应行。