Visual Basic.NET - Fila actual siempre visible en DataGrid

Como se puede hacer que la fila seleccionada actualmente en un datagrid siempre este visible?
Tengo un Datagrid q cambia de tamaño para ajustarse a un area definida. El problema es que me gustaria que cuando se redimensione el tamaño la fila seleccionada este visible, o sea q haga un scroll automatico y se mueva solo hasta que la fila seleccionada quede visible.

Alguien tiene idea de como hacer esto? un un sitio donde lo explique.?

¿Puedo usar un datareader con acces?

Yo lo hago así, YA QUE NO CONSIGO UTILIZAR EL property Builder.

Autores = nombre de tabla

Id, Autor, Fecha, Compositor y Letrista en MappingName son los nombres de los campo del DataSet.

Id, Autor, Fecha, Compositor y Letrista en HeaderText son los nombres que aparecen en la cabecera de las columnas del DataGrig

Dim oEstiloGrid As New DataGridTableStyle
oEstiloGrid.MappingName = "Autores"

Dim oColumGrid As DataGridTextBoxColumn
oColumGrid = New DataGridTextBoxColumn
oColumGrid.MappingName = "Id"
oColumGrid.TextBox.Enabled = False
oColumGrid.Alignment = HorizontalAlignment.Center
oColumGrid.HeaderText = "Id"
oColumGrid.Width = 35
oEstiloGrid.GridColumnStyles.Add(oColumGrid)
oColumGrid = Nothing

oColumGrid = New DataGridTextBoxColumn
oColumGrid.MappingName = "Autor"
oColumGrid.TextBox.Enabled = False
oColumGrid.Alignment = HorizontalAlignment.Left
oColumGrid.HeaderText = "Autor"
oColumGrid.Width = 180
oColumGrid.NullText = String.Empty
oEstiloGrid.GridColumnStyles.Add(oColumGrid)
oColumGrid = Nothing

oColumGrid = New DataGridTextBoxColumn
oColumGrid.MappingName = "Fecha"
oColumGrid.TextBox.Enabled = False
oColumGrid.Alignment = HorizontalAlignment.Center
oColumGrid.HeaderText = "Fecha"
oColumGrid.Width = 70
oColumGrid.Format = "d"
oColumGrid.NullText = String.Empty
oEstiloGrid.GridColumnStyles.Add(oColumGrid)
oColumGrid = Nothing

oColumGrid = New DataGridTextBoxColumn
oColumGrid.MappingName = "Compositor"
oColumGrid.TextBox.Enabled = False
oColumGrid.Alignment = HorizontalAlignment.Center
oColumGrid.HeaderText = "Compositor"
oColumGrid.Width = 70
oColumGrid.NullText = String.Empty
oEstiloGrid.GridColumnStyles.Add(oColumGrid)
oColumGrid = Nothing

oColumGrid = New DataGridTextBoxColumn
oColumGrid.MappingName = "Letrista"
oColumGrid.TextBox.Enabled = False
oColumGrid.Alignment = HorizontalAlignment.Center
oColumGrid.HeaderText = "Letrista"
oColumGrid.Width = 70
oColumGrid.NullText = String.Empty
oEstiloGrid.GridColumnStyles.Add(oColumGrid)
oColumGrid = Nothing

dgAutores.TableStyles.Add(oEstiloGrid)