Come gestire una virgoletta singola nella query SQL VBA di Word?

Question

Ricevo un nome cliente dal menu a discesa e utilizzo quel valore per interrogare un foglio di calcolo Excel, tuttavia, il nome può contenere una virgoletta singola (esempio: Adam's Meat). Questo rompe la mia domanda e come faccio a fare una query con una variabile che contiene una singola citazione?

Private Sub cboCompany_Change() 
      Dim customerName As String 
      customerName = cboCompany.Value 

rsT.Open "SELECT Customer, Postcode, Address1, Address2, State, Country FROM Customers WHERE Customer = '" & customerName & "'", cn, adOpenStatic 

Answer 1

Dove si specificano due apici '', sfuggirà l'altro e si tradurrà in singolo, provare a sostituire in questo modo:

customerName = Replace(customerName, "'", "''") 

Answer 2

Questo ti lascia spalancata ad un attacco SQL injection . Consiglierei di cambiarlo in una query parametrizzata come questa

Dim cmd as NEW ADODB.Command 

With cmd 
.CommandText=”SELECT foo from tblBar where foo=?” 
.Parameters.Append .CreateParameter("@foo", adVarChar, adParamInput, 50, “What ever you want”) 
.ActiveConnection=dbCon 
.CommandType=adCmdText 
End With 

Set rst=cmd.execute