ตอนนี้เพิ่มข้อมูลลงใน DataGridViewได้แล้ว แต่อยากจะทำให้ Item ใน Combobox มีทั้งชื่อและตัวเลขแต่มันติดที่ Type ของฐานข้อมูลเป็น Number

Sub Show_Combobox ()
          dim A as integer = จำนวนข้อมูลที่จะแสดงใน combobox
          dim B as string = ชื่อสินค้า
          dim I as integer
          For I = 0 to  A
               combobox1.Itemdata = A & B
          Next 
end Sub

Public Class Form3
    Dim connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=X:\DATA\PostCode.mdb;Jet OLEDB:Database Password=4410210091"
    Dim ChkColumn As System.Windows.Forms.DataGridViewCheckBoxColumn = New System.Windows.Forms.DataGridViewCheckBoxColumn()
    Public item As Integer = 0
    Public p As String = "TOR"
    Function GetTableForm(_SQL As String) As System.Data.DataTable

        Dim ds As New System.Data.DataSet()
        Dim conn As New System.Data.OleDb.OleDbConnection(connectionString)
        conn.Open()
        Dim adapter As New System.Data.OleDb.OleDbDataAdapter(_SQL, conn)
        adapter.Fill(ds)
        Return ds.Tables(0)
    End Function

    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.DataGridView1.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.ChkColumn})
        DataGridView1.DataSource = GetTableForm("SELECT pvnID, Province, Symbol FROM Sett_Post_Province")

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For i As Integer = 0 To DataGridView1.RowCount - 1
            item = Convert.ToInt32(DataGridView1(1, i).Value)
            p = DataGridView1(2, i).Value
            If Convert.ToBoolean(DataGridView1(0, i).Value) = True Then
                Close()
                Exit Sub
            End If

        Next
    End Sub
End Class

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim f As New Form3()
        f.ShowDialog()
        MessageBox.Show(f.item & vbCrLf & f.p)
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class

Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewComboBoxColumn
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewComboBoxColumn()

Me.DataGridViewTextBoxColumn3.DataSource = Me.Sett_Post_ProvinceBindingSource        
Me.DataGridViewTextBoxColumn3.DataPropertyName = "Pnv"
Me.DataGridViewTextBoxColumn3.DisplayMember = "Province"
Me.DataGridViewTextBoxColumn3.ValueMember = "pvnID"
        Me.DataGridViewTextBoxColumn3.HeaderText = "Pnv"
        Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
        Me.DataGridViewTextBoxColumn3.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
        Me.DataGridViewTextBoxColumn3.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic