[AccessD] Escaping a Single Quotation Mark in a pass through update query

Someone please help:

I want to update a column with a string that contains a 
Single Quotation Mark using a pass through query to SQL2005

The code bit with the SQL string looks like:

Dim strSQL As String
Dim strLog As String
Dim strOK As String

strLog = "Houston - We've got massive problems!"

strSQL = "UPDATE RMS_DATA.dbo.tblBookingRequestExceptionLog 
SET ExceptionLog = '" & strLog & "' + CHAR(13) + 
ExceptionLog;"

strOK = fncExecuteSP(strSQL)

As long as the strLog does not contain a single quotation 
mark the strSQL updates OK.

I've lost patience on this - help please!!

borge