>(bindingsource).RemoveCurrent() >so you insert a line as follows (it's simpler if your grid is not bound btw).
Dim r As (Datatable)Row = (Datatable).New(Datatable)Row Dim rIndex As Integer : rIndex = (grid).CurrentRow.Index (datatable).Rows.InsertAt(r, rIndex) Dim col As Integer = (grid).Columns((firstvisiblefield)).Index (grid).CurrentCell = grid(col, rIndex) (grid).Focus() >