Menampilkan Data dari DataGrid ke TextBox (VB.NET)

Imports System.Data.OleDb

Public Class FormDokter

    Sub TAMPILDATA()

        Call Konek()

        Dim sql3 As String

        sql3 = "select * from QRdokter"

        dtadapter = New OleDbDataAdapter(sql3, Conn)

        DataGridView1.Refresh()

        Dim ASD As New DataTable

        ASD.Clear()

        dtadapter.Fill(ASD)

        DataGridView1.DataSource = ASD

        Conn.Close()

    End Sub

-----------------------------------------------------------------------------

    Private Sub FormDokter_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call TAMPILDATA()

        tkode.Focus()

    End Sub

---------CODING UTAMA UNTUK MENAMPILKAN DATA DI TEXTBOX--------------------

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

        Dim i As Integer

        i = Me.DataGridView1.CurrentRow.Index

        With DataGridView1.Rows.Item(i)

            tkode.Text = .Cells(0).Value

            tdokter.Text = .Cells(1).Value

            tspesialis.Text = .Cells(2).Value

            talamat.Text = .Cells(3).Value

            ttelp.Text = .Cells(4).Value

        End With

    End Sub

End Class

Selamat Mencoba, jangan lupa tinggalkan saran atau komentar jika ada yang ingin ditanyakan.