Try this;
Dim iTest AsInteger
Dim j As String
Dim i As Integer = 1
gv1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
j = dr(0).ToString
gv1.Rows(0).Cells(i).Value = j
i = i + 1
iTest = gv1.SelectedRows(0).Index + 1
gv1.Rows(iTest).Selected = True