สอบถามเรื่องปุ่มค้นหาค่ะ ให้มาแสดงในDataGridView สามารถค้นหาได้ทั้งรหัสและชื่อ VB2010

If txtSearch.Text.Trim() = "" Then
            MessageBox.Show("กรุณาระบุรหัสประเภทหนังสือก่อน !!! ", "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End If

        Dim sb As New StringBuilder()
        sb.Remove(0, sb.Length)
        sb.Append("SELECT bt_ID,bt_Name")
        sb.Append(" FROM BookType")
        sb.Append(" WHERE (bt_ID=@bt_ID)")
        Dim sqlSearch As String = sb.ToString()

        Dim com As New OleDbCommand()
        Dim dr As OleDbDataReader
        Dim dt As DataTable
        With com
            .CommandType = CommandType.Text
            .CommandText = sqlSearch
            .Connection = Conn
            .Parameters.Clear()
            .Parameters.Add("bt_ID", OleDbType.VarChar).Value = txtSearch.Text.Trim()
            dr = .ExecuteReader()
            If dr.HasRows Then
                dt = New DataTable()
                dt.Load(dr)

                txtID.Text = dt.Rows(0).Item("bt_ID").ToString()
                txtName.Text = dt.Rows(0).Item("bt_Name").ToString()

            Else
                MessageBox.Show("ไม่มีรายชื่อประเภทหนังสือ ตามที่คุณต้องการ  !!!", "ผลการค้นหา", MessageBoxButtons.OK, MessageBoxIcon.Information)

                txtID.Text = ""
                txtName.Text = ""
                
                txtSearch.Focus()
                txtSearch.SelectAll()
            End If
        End With
        dr.Close()

DataGridView.DataSource = dt
txtID.Text = dt.Rows(0).Item("bt_ID").ToString()
txtName.Text = dt.Rows(0).Item("bt_Name").ToString()