01.If txtKeyWord.Text <> "" Then
02. Dim strKeyWord As String = Replace(txtKeyWord.Text, "'", "''", , , CompareMethod.Text)
03. w_Where5 = " AND ((Information like '%" & strKeyWord & "%') or (Remark like '%" & strKeyWord & "%'))"
04.Else
05. w_Where5 = ""
06.End If
07.MyDta.SelectCommand = New SqlCommand(SqlStatement, MyCnn)
08.MyDta.Fill(dtsReport)
09.
10. lblCurrentShiftReportAlarm.Text = ""
11. dgrdReport.DataSource = dtsReport
12. dgrdReport.DataBind()
