Visual Basic.NET - Seleccionar una fila de un datagrid

Private Sub DataGridView2_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView2.CellContentClick

    fechaconsulta = DataGridView2.Item(0, e.RowIndex).Value 'columna 0 va la fecha de consulta

    horaconsulta = DataGridView2.Item(1, e.RowIndex).Value 'columna 1 va la hora de consulta

    Dim conn2 As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\medico.accdb"

    Dim cmd2 As OleDbConnection = New OleDbConnection(conn2)

    Dim alumDataSet2 As New DataSet

    Dim tAdapter2 As OleDbDataAdapter = New OleDbDataAdapter

    tAdapter2.SelectCommand = New OleDbCommand("SELECT * FROM visitas WHERE hora Like '" + horaconsulta + "'", cmd2)     '' aqui selecciono la hora de consulta de la fecha clikada, pueden ser varias consultas en un dia, por lo que quiero los datos de la consulta exacta.

    alumDataSet2.Tables.Add("visitas")

    tAdapter2.Fill(alumDataSet2.Tables("visitas"))

    lista = alumDataSet2.Tables("visitas").Rows.Count

    cmd2.Close()

    Dim dr As DataRow

    For Each dr In alumDataSet2.Tables(0).Rows

        'If dr.Table.Rows(0).ToString = horaconsulta Then

        TextBox1.Text = dr.Table.Rows(0).ToString

        'End If

    Next

    'aqui se cargan sintomas tratamiento y 

End Sub

dim currentRow  as integer

currentRow = CType((e.RowIndex.ToString()), Integer) ''Obtiene la fila actual

' Dim cc As Integer = CType((e.RowIndex.ToString()), Integer) ''Obtiene la fila actual

espero te sirva para seleccionar los datos

If IsDBNull(Convert.ToString(dgvclientes(2, currentRow).Value)) Then

Else

    nombre = Convert.ToString(dgvclientes(2, currentRow).Value)

End If

'If IsDBNull(Convert.ToString(dgvclientes(3, currentRow).Value)) Then

'Else

'    apelldios = Convert.ToString(dgvclientes(3, currentRow).Value)

'End If

DataGridView2.ColumnCount = 5      'pongo el datagrid a 5 columnas

DataGridView2.Columns(2).Width = 400     'la columna tercera la hago mas amplia para que quepa todo

Dim dr1 As DataRow

For Each dr1 In alumDataSet2.Tables("visitas").Rows

    DataGridView2.Rows.Add(dr1.Item(1).ToString().Substring(0, 10), (dr1.Item(5).ToString().Substring(11)), (dr1.Item(2).ToString().Substring(0, 11)), (dr1.Item(3).ToString().Substring(0, 11)), (dr1.Item(4).ToString().Substring(0, 11)))

Next