處理Select語句中的單引號 

在數據庫應用中， 經常要動態生成 Select 語句，典型的情況：
SqlString = "Select * from myBas where Name = '" & Text1 & "'"
好啦， 問題出現了， 如果在錄入的 Text1 中有一個單引號，結果是把 SqlString 發給數據庫時， 將出錯！

其實要做的防范很簡單， 增加一個函數：

FUNCTION CheckString (s) as String
pos = InStr(s, "'")
While pos > 0
s = Mid(s, 1, pos) & "'" & Mid(s, pos + 1)
pos = InStr(pos + 2, s, "'")
Wend

CheckString="'" & s & "'" 
END FUNCTION

以后在動態生成 Select 語句， 使用：
SqlString = "Select * from myBas where Name = " & CheckString(Text1)