การดึงข้อมูลจาก DB แล้วมาแสดงที่ Datagridview แล้วพอดับเบิ้ลคลิก ไห้ส่งข้อมูลข้ามฟอร์ม

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
textbox1.text = From1.textbox1.text
End Sub

Public Class Form1
    Dim dt As DataTable 'ตัวแปร DataTable เก็บข้อมูล

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dt = New DataTable

        '========== ข้อมูลใน DataTable (ในส่วนนี้ของคุณจะเป็นดึงมาจากฐานข้อมูล) ==========
        With dt.Columns
            .Add("รหัสสินค้า")
            .Add("ประเภท")
            .Add("ชื่อสินค้า")
            .Add("ราคาทุน")
            .Add("ราคาขาย")
        End With
        DataGridView1.DataSource = dt 'นำข้อมูลใน DataTable ลงใน DataGridView
        dt.Rows.Add("C00001", "เครื่องดื่ม", "น้ำส้ม", "8", "10")
        dt.Rows.Add("C00002", "เครื่องดื่ม", "น้ำมะนาว", "8", "10")
        dt.Rows.Add("C00003", "เครื่องดื่ม", "น้ำมะพร้าว", "8", "10")
        dt.Rows.Add("C00004", "เครื่องดื่ม", "น้ำแป๊บซี่", "8", "10")
        dt.Rows.Add("C00005", "เครื่องดื่ม", "น้ำองุ่น", "8", "10")

    End Sub

    Private Sub DataGridView1_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
        With Form2
            .setCurrentProductCode(DataGridView1.Rows(e.RowIndex).Cells("รหัสสินค้า").Value) 'ส่งค่าฟิลด์ รหัสสินค้า ใน DataGridView ไป Form2
            .Show() 'เปิด Form 2
        End With
    End Sub
End Class

Public Class Form2
    Private currentProductCode As String

    'เซตรหัสสินค้าปัจจุบัน
    Public Sub setCurrentProductCode(ByVal productCode As String)
        currentProductCode = productCode
        'คุณสามารถสร้างคำสั่ง Query ข้อมูลใหม่มาจากฐานข้อมูลโดยใช้ currentProductCode เป็นตัว Search ก็ได้
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = currentProductCode 'นำรหัสสินค้า แสดงผลใน Textbox1
    End Sub
End Class