試著使用 parameter 應該就可以避免該問題.

sql = "select * from PROFILE where P_NAME like '%' + ? + '%'"
set cmd = server.createobject("ADODB.Command")
cmd.activeconnection = yourConnection
cmd.commandText = SQL
cmd.Parameters.Append( cmd.CreateParameter("P_NAME", adVarWChar, , 512, "ABCバ") )

參考網頁
ADO CreateParameter Method
Append and CreateParameter Methods Example

糟糕~ 弟子愚昧、有看沒有懂ㄋㄟ~~
我的網頁並不是ASP.NET...適用嗎?
---------------------------------------------------------
真正的Code是這樣的~
.
strDSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("../database/standard.mdb")
Set objDBConn = Server.CreateObject("ADODB.Connection")
objDBConn.Open strDSN
strSQL = "select * from PROFILE where P_NAME like '%" & Request.QueryString("SP_CODE") & "%' order by ID"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objDBConn, adOpenStatic, adLockReadOnly, adCmdText
.
請教要如何套用到您所謂的 parameter 呢?
.
有其它比較簡單的方法嗎? 煩請個位先進們 再次不吝指教 ~~

strDSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("../database/standard.mdb")
Set objDBConn = Server.CreateObject("ADODB.Connection")
objDBConn.Open strDSN
set objCMD = server.createobject("ADODB.Command")
objCMD.activeconnection = objDBConn
objCMD.commandText = "select * from PROFILE where P_NAME like '%' + ? + '%' order by ID"
objCMD.CommandType = adCmdText
objCMD.parameters.append(objCMD.createParameter("P_NAME", adVarWChar, adParamInput, 255, Request.QueryString("SP_CODE")))
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open objCMD 或 objRS = objCMD.execute()

試試這樣吧...很久沒寫了有點忘了..
ASP.NET 的話就不會再用 Recordset 了, 會使用 DataReader 讀取或是轉入 DataSet/DataTable 再來處理.

可用以下方式替代解決
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %> <!--#include file ="adovbs.inc"--> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <% strDSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("PRO.mdb") & ";" Set objDBConn = Server.CreateObject("ADODB.Connection") objDBConn.Open strDSN querystr = "AB" strSQL = "select * from PROFILE order by ID" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objDBConn, adOpenStatic, adLockReadOnly, adCmdText If Not objRs.Eof Then objRS.MoveFirst While Not objRS.Eof if instr(objRs("P_NAME"),querystr)>0 then Response.Write(objRs("P_NAME") & "<br/>") end if objRS.MoveNext Wend End If objRS.Close Set objRS = Nothing objDBConn.close Set objDBConn = Nothing %>
測試網址在
http://ap.a168a.com/blueshop/ado/select2c.asp
執行結果如下圖

整個運用及測試網址在這兒 ...
http://www.blowmoldingmachine.com.tw/Test/ProReport.asp

整個檔案在 ...
http://www.blowmoldingmachine.com.tw/Test/Test.rar

---------------------------------------------------------------------------
行之有年的功能~
只要欄位中有個日文的【バ】這個特定字~ 就掛了~
select * from PROFILE where P_NAME like '%B%'
再也平凡不過的 select ... 怎麼會遇到特定字就瓦解了呢??

煩請個位先進們 再次不吝指教 ~~

請參考小鋪早期的討論去試看看各種解法
http://www.blueshop.com.tw/board/show.asp?subcde=BRD20050520162923OLB