...
...  
 Dim dr As DataRow            For Each dr In ds.Tables(0).Rows      'ds是DataSet
                dr("Type").ToString().Replace(Keyword, "<font color=red>" + Keyword + "</font>")
                dr("Title").ToString().Replace(Keyword, "<font color=red>" + Keyword + "</font>")
            Next            SearGrid.DataSource = ds.Tables(0)
            SearGrid.DataBind()