(VB) Search ข้อมูลจาก Textbox แสดงออกทาง Datagrid โดยข้อมูลที่ตรงกับคำที่ใช้ Search ต้องมี Highlights

        If txtKeyWord.Text <> "" Then
            Dim strKeyWord As String = Replace(txtKeyWord.Text, "'", "''", , , CompareMethod.Text)
            w_Where5 = " AND ((Information like '%" & strKeyWord & "%') or (Remark like '%" & strKeyWord & "%'))"
        Else
            w_Where5 = ""
        End If
        MyDta.SelectCommand = New SqlCommand(SqlStatement, MyCnn)
        MyDta.Fill(dtsReport)

            lblCurrentShiftReportAlarm.Text = ""
            dgrdReport.DataSource = dtsReport
            dgrdReport.DataBind()