Deleting Incorrect Row

Possibly you want

rptMainMessages.Records.RemoveAt(row.Record.Index);
rptMainMessages.Populate();

OR

rptMainMessages.RemoveRecordEx(row.Record.Index);
rptMainMessages.RowEx(row);

OR

Sub Delete()
Dim i As Long, Row As ReportRow
 If lst.SelectedRows.Count = 0 Then
    If lst.Records.Count = 0 Then
       Debug.Print "No Row(s) Exist to Remove"
    Else
       Debug.Print "Select The Row(s) you want to remove"
    End If
 ElseIf lst.SelectedRows.Count >= 1 Then
         Debug.Print "Ready TO Remove : " & lst.SelectedRows.Count & " Row(s)"
         If MsgBox("Are You Sure", vbInformation + vbYesNo) = vbNo Then
           lblStatus.Caption = "Remove cancelled"
           Exit Sub
         End If

         For Each Row In lst.SelectedRows
             Delete Row
             lst.Records.RemoveAt (Row.Record.Index)
         Next
        
         Debug.Print "Selected Rows removed successfully"
         lst.Populate
 End If
End Sub

Hi,