GRID

    Private Sub datagrid1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles datagrid1.MouseUp
        Dim pt = New Point(e.X, e.Y)
        Dim hti As DataGrid.HitTestInfo = datagrid1.HitTest(pt)
        datagrid1.CurrentCell = New DataGridCell(hti.Row, hti.Column)
        dataset.Clear()
        OleDbDataAdapter1.Fill(dataset)
        Me.BindingContext(datset, tabela).Position = Me.BindingContext(dataset, tabela).Count - 1
        If hti.Row <= Me.BindingContext(dataset, tabela).Position And hti.Row > -1 Then
            text1.text= dataset.tabela.Rows(hti.Row).Item("campotabela")
            text2.Text = dataset.tabela.Rows(hti.Row).Item("campotabela")
            text3.Text = dataset.tabela.Rows(hti.Row).Item("campotabela")
        Else
            Exit Sub
        End If
    End Sub

   
Private Sub dgView_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgView.CellClick

            'Se a linha realmente existir
            If e.RowIndex <> -1 Then

                Dim row As DataGridViewRow = Me.dgView.Rows(e.RowIndex)

                Dim nome As String = row.Cells(0).Value.ToString
                Dim idade As String = row.Cells(1).Value.ToString
                Dim altura As String = row.Cells(2).Value.ToString

                If MessageBox.Show("Deseja realmente exportar para um arquivo texto?", "Atenção", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then

                    Dim strmExportar As New System.IO.StreamWriter("c:\GridExportar.txt", True)

                    With strmExportar

                        .WriteLine(String.Format("Nome é: {0}; Idade é: {1}; Altura é: {2};", nome, idade, altura))

                        .Flush()
                        .Close()

                    End With

                    MessageBox.Show("Informações exportadas com sucesso", "Atenção", MessageBoxButtons.OK, MessageBoxIcon.Information)

                End If

            End If

        End Sub

Imports System.Data
Imports System.Data.OleDb

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim conn As OleDbConnection
        Dim strDB As String
        Dim sql As String
        Dim ds As DataSet
        Dim da As OleDbDataAdapter


        strDB = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settingsaphael\My Documents\Visual Studio 2005\Projects\WindowsApplication5\WindowsApplication5\dbClientes.mdb;Persist Security Info=False"
        sql = "SELECT * FROM tbclientes"
        conn = New OleDbConnection(strDB)
        conn.Open()
        da = New OleDbDataAdapter(sql, strDB)
        ds = New DataSet()
        da.Fill(ds)

        Me.DataGridView1.DataSource = ds.Tables(0)
    End Sub

    Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        TextBox1.Text = Me.DataGridView1.CurrentCell.Value.ToString()
    End Sub
End Class