OK, so I know 5 years have gone by since the last post on this forum. I have been trying, for hours, to figure out why I am getting a Run Time Error 6 Overflow when I try to delete items. I am fairly certain I followed your code verbatim except that I am trying to adapt it to a different set of records.

Private Sub DeleteSelected_Click()
    
    If MsgBox("Are you Sure?", vbYesNo) <> vbYes Then
        Exit Sub
    End If
    
    Dim I
    For Each I In StudentList.ItemsSelected
    DeleteSelect StudentList.ItemData(I)
    Next
End Sub

Private Sub DeleteSelect(I As Integer)
    On Error Resume Next
  
    Dim db As Database
    Dim rs As Recordset
  
    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT * FROM StudentT WHERE StudentID=" & I, dbOpenDynaset)
      
      
    rs.Delete
      
  
    db.Close
    rs.Close
    Set db = Nothing
    Set rs = Nothing
    LoadStudentList
End Sub