คลิกที่ datagridview แล้วให้ combobox เปลี่ยนตามอ่ะครับ รบกวนด้วยครับ

 Private Sub datagridview_RowHeaderMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles datagridview.RowHeaderMouseClick
        Dim IDCell As Integer
        IDCell = CInt(datagridview.Rows(e.RowIndex).Index)       'ได้ตำแหน่ง cell ที่คลิก
        Me.BindingContext(ds, "table1").Position = IDCell          'bindingcontext ของฟอร์ม จากตำแหน่งที่ได้
    End Sub

    with combobox
         .DataSource = ds.Tables("table2")
         .DisplayMember = "field1"
         .ValueMember = "field2"   'field1 กับ field2 ต้องมีความสัมพันธ์กันนะ เช่น field1 ชื่อเป็นประเภทสินค้า field2 เป็น id ประเภทสินค้า
         .DataBindings.Add("SelectedValue", ds, "tablename1.field2")
    end with

    combobox.DataBindings.Add("text", ds, "table.field")

Private Sub FrmCompany_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Cursor.Current = Cursors.WaitCursor
        'เชื่อมต่อกับฐานข้อมูล
        ContoData()
        ClearData()
        ShowData()

        With cboShow
            .Items.Add("ไม่แสดงชื่อบริษัท")
            .Items.Add("แสดงชื่อบริษัท")
            .SelectedIndex = 1
        End With

        cmdEdit.Enabled = False
        cmdDelete.Enabled = False

        txtName.Focus()
        Cursor.Current = Cursors.Default
    End Sub
    Private Sub ClearData()
        txtName.Text = ""
        txtAddress.Text = ""
    End Sub
    Private Sub ShowData()
        If IsFind = True Then                   'ถ้าค่าสถานะของออบเจ็กต์ ds เท่ากับ true
            ds.Tables("Company").Clear()        'ให้ล้างค่า
        Else
            IsFind = False                      'ถ้าไม่มีก็กำหนดสถานะเป็น False
        End If
        'สร้างตัวแปรเก็บชุดคำสั่ง SQL
        Dim sqlCompany As String = ""
        sqlCompany = "SELECT * FROM company"
        'เก็บชุดคำสั่ง SQL ไว้ในออบเจ็กต์ da
        da = New MySqlDataAdapter(sqlCompany, Conn)
        'ใสชุดข้อมูลลงในออบเจ็กต์ ds
        da.Fill(ds, "Company")
        'ถ้ามีอย่างน้อย 1 เร็คคอร์ด
        If ds.Tables("Company").Rows.Count <> 0 Then
            IsFind = True           'กำหนดให้ค่าสถานะ ds มีค่าเท่ากับ true
            With grdCompany
                .DataSource = ds.Tables("Company")
                .Columns(0).HeaderText = "รหัสบริษัท"
                .Columns(1).HeaderText = "ชื่อบริษัท"
                .Columns(2).HeaderText = "ที่อยู่บริษัท"
                .Columns(3).HeaderText = "สถานะแสดงชื่อบริษัท"
                .Columns(0).Width = 80
                .Columns(1).Width = 150
                .Columns(2).Width = 250
                .Columns(3).Width = 120
                .Columns(0).ReadOnly = True
                .Columns(1).ReadOnly = True
                .Columns(2).ReadOnly = True
                .Columns(3).ReadOnly = True
            End With
        Else
            IsFind = False          'กำหนดให้ค่าสถานะ ds มีค่าเท่ากับ False
            grdCompany.DataSource = Nothing 'ถ้าไม่มีข้อมูลให้ล้างข้อมูลใน DataGridView
        End If
    End Sub
    'ปุ่มเพิ่มบริษัท
    Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
        If (txtName.Text = "") Or (txtAddress.Text = "") Then
            MessageBox.Show("กรุณาป้อนข้อมูลให้ครบด้วยครับ.", "ผลการตรวจสอบ.", MessageBoxButtons.OK, MessageBoxIcon.Error)
            txtName.Focus()
            Exit Sub
        End If
        'สร้างตัวแปรเก็บชุดคำสั่ง SQL 
        Dim sqlInsert As String = ""
        sqlInsert = "INSERT INTO company (name,address,showinpurchase)"
        sqlInsert &= " VALUES ('" & txtName.Text & "','" & txtAddress.Text & "','" & cboShow.SelectedIndex & "')"

        Try             'ให้ทำ
            'เชื่อมต่อกับฐานข้อมูล
            ContoData()
            'สร้างออบเจ็กต์ MySqlCommand ที่ชื่อว่า comInsert
            Dim comInsert As New MySqlCommand
            With comInsert
                .CommandType = CommandType.Text
                .CommandText = sqlInsert
                .Connection = Conn
                .ExecuteNonQuery()
            End With
            MessageBox.Show("บันทึกข้อมูลเรียบร้อยแล้วครับ", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As MySqlException
            MessageBox.Show("Cannot insert data,because " & ex.Message, "ผลการตรวจออบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            txtName.Focus()
            txtName.SelectAll()
        Finally
            Conn.Close()
        End Try
        ClearData()
        ShowData()
        txtName.Focus()
    End Sub
    'ปุ่มแก้ไขข้อมูล
    Private Sub cmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEdit.Click
        'ถ้าป้อนข้อมูลไม่ครบ
        If (txtName.Text = "") Or (txtAddress.Text = "") Then
            MessageBox.Show("กรุณาป้อนข้อมูลไม่ครบด้วยครับ", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End If
        'สร้างตัวแปรเก็บชุดคำสั่ง SQL
        Dim sqlUpdate As String = ""
        Dim tmpRowsAffected As Long = 0     'ตัวแปรเก็บจำนวนเร็คคอร์ดที่กูกกระทำ
        sqlUpdate = "UPDATE company SET"
        sqlUpdate &= " name='" & txtName.Text & "',address='" & txtAddress.Text & "',showinpurchase='" & cboShow.SelectedIndex & "'"
        sqlUpdate &= " WHERE (name='" & txtName.Text & "')"
        Try
            'เชื่อมต่อกับฐานข้อมูล
            ContoData()
            Dim comUpdate As New MySqlCommand
            With comUpdate
                .CommandType = CommandType.Text
                .CommandText = sqlUpdate
                .Connection = Conn
                tmpRowsAffected = .ExecuteNonQuery
            End With
            MessageBox.Show("แก้ไขข้อมูลเรียบร้อย", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
            If tmpRowsAffected = 0 Then
                MessageBox.Show("ชื่อบริษัทที่คุณเลือกไม่มีกรุณาลองใหม่", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
                txtName.Focus()
                txtName.SelectAll()
            End If
        Catch ex As MySqlException
            MessageBox.Show("Cannot edit data,because " & ex.Message, "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            txtName.Focus()
            txtName.SelectAll()
            Exit Sub
        Finally
            Conn.Close()
        End Try
        ClearData()
        ShowData()
        txtName.Focus()
    End Sub
    'เหตุการณ์เมื่อคลิกที่ Cell ของ datagridview
    Private Sub grdCompany_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles grdCompany.CellClick
        Dim UserSelectRow As Integer = 0        'ตัวแปรเก็บแถวที่ถูกคลิก
        If IsFind = True Then
            UserSelectRow = CInt(grdCompany.Rows(e.RowIndex).Index)
            txtName.Text = CStr(grdCompany.CurrentRow.Cells(0).Value.ToString)
            txtAddress.Text = CStr(grdCompany.CurrentRow.Cells(1).Value.ToString)
            Me.BindingContext(ds, "Company").Position = UserSelectRow
            With cboShow
                .DataSource = ds.Tables("Company")
                .DataBindings.Add("SelectedValue", ds, "Company.showinpurchase")
            End With
            txtName.Focus()
        End If
    End Sub