Deleting a row from a Data Table using a DGV - only works once

[NewToThis101]

I have a data table that is connected to a data grid view. I want to delete the selected row from the data gird view. It works for the first time I delete a row, but when I select another row and try to delete it the program crashes as I get an "Index Out of Row exception". "There is no row at position X"

Your help would be great!

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim selectedi As Integer = dgvCustomers.CurrentCell.RowIndex

        dtdgvCustomers.Rows(selectedi).Delete()
        Me.Validate()
        Me.objCustomersDA.Update(Me.objDataSet.Tables("tblCustomers"))
        Me.objDataSet.AcceptChanges()
        Refresh()
        dgvCustomers.Update()


        dgvCustomers.ClearSelection()

    End Sub


Public Sub Retrieve()
        'Clears DataSet of any existing data
        objDataSet.Clear()
        

        objCustomersDA.FillSchema(objDataSet, SchemaType.Source)
        'Fills DataSet with info from DataAdapter
        objCustomersDA.Fill(objDataSet)

        'objDataSet.Tables.Add(dtCustomers)


        dgvCustomers.DataSource = objDataSet.Tables(0)

   

    End Sub