วิธีแสดงแถวเฉพาะใน DataGridview จากฐานข้อมูล ms access ใน VB

สวัสดี ฉันกำลังพัฒนาโครงการ vb ฉันมีฐานข้อมูล MS-access ที่มี 3 สี (Itno, Name, Price) ในรูปแบบฉันได้เพิ่มกล่องข้อความสองกล่องและเพิ่มปุ่ม (TextBox2=Itno,Textbox=quantity) หากผู้ใช้ระบุ Itno และจำนวนแล้วคลิกปุ่มเพิ่ม ชื่อและราคาของ Itno ควรแสดงใน DataGridview พร้อมกับปริมาณที่ป้อนในกล่องข้อความ3

ฉันได้พยายามเท่าที่ความรู้ของฉัน แต่ฉันไม่สามารถแสดงข้อมูลใน Datagridview ได้ ใครก็ได้โปรดช่วยฉันด้วย...

นำเข้า System.Data.OleDb นำเข้า System.Data.DataTable

Public Class Form1
    Dim ad As System.Data.OleDb.OleDbDataAdapter
    Dim cm As System.Data.OleDb.OleDbCommand
    Dim co As System.Data.OleDb.OleDbConnection
    Dim dr As System.Data.OleDb.OleDbDataReader
    Dim tb As New DataTable("Table")

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        tb.Columns.Add("Iteam", Type.GetType("System.Int32"))
        tb.Columns.Add("Quantity", Type.GetType("System.String"))
        tb.Columns.Add("Price", Type.GetType("System.String"))
        DataGridView1.DataSource = tb
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        co = New System.Data.OleDb.OleDbConnection
        co.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" &
                "Data Source=C:\Users\Vicky\Desktop\db\bill\bill.mdb;"
        Try
            co.Open()
            Dim cd As String
            cd = "SELECT * FROM item WHERE Itno='" & TextBox2.Text & "'"
            cm = New OleDb.OleDbCommand(cd, co)
            dr = cm.ExecuteReader()
            While dr.Read()
                Dim n As String
                Dim p As String
                p = dr("Price").ToString
                n = dr("Name").ToString
                tb.Rows.Add(p.ToString, TextBox3.Text, n.ToString)
                DataGridView1.DataSource = tb

            End While
            co.Close()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub
End Class