deleting from datagrid and displaying contents

[billiam gates]

I have a datagrid and the selected datarows' fields are displayed in fields below.
When I try to delete a row, then I advance to the next row, the correct row is not shown in the fields below; it tends to lag by one. However, all the records before the record deleted show up fine.

Private Sub btn_Del_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Del.Click 
 
 
        If objDS.Tables("phonebook").Rows.Count > 0 Then 
            Dim objDelRow As DataRow 
            objDelRow = objDS.Tables("phonebook").Rows(bmGrid.Position) 
            objDelRow.Delete() 
            moveprevious() 
         End If 
        ShowRecord(bmGrid.Position) 
    End Sub

Basically my question is there a way to skip through records that are marked as deleted when I scroll through the datagrid?