如何在表中保存单引号？

Dim dbCustomer As Database ' 宣告資料庫

Dim strSql As String ' SQL 字串

Dim strodbc As String ' ODBC 字串 '

以下為資料庫中客戶檔之三個欄位變數宣告

Dim strCustID As String ' 客戶代碼

Dim strFirstName As String ' 客戶名稱

Dim strAddress As String ' 客戶地址

strodbc = "odbc;uid=scott;pwd=tiger;dsn=myconnect"

Set dbCustomer = OpenDatabase("myconnect", dbDriverNoPrompt, False, strodbc)

strCustID = "A003"

strFirstName = "Annie"

strAddress = "Reflection's"

strSql = "insert into CUSTOMER values('" & strCustID & "'"

strSql = strSql & ",'" & strFirstName & "'," strSql = strSql & Chr(34) & strAddress & Chr(34) & ")"

dbCustomer.Execute (strSql)

dbCustomer.Close

End Sub