I'm trying to log query strings that have been executed but having no luck.

Code:
Public Sub LogTransaction(strSql As String)
    Dim strSqlString As String
    
    strSqlString = "INSERT INTO Transtable (querystring, querydate) "
    strSqlString = strSqlString & "VALUES ('" & strSql & "', {" & Now & "})"

    fCnn1.Execute strSqlString

End Sub
The problem is with the strSql in the insert statement. This is a sample string.

INSERT INTO Transtable (querystring, querydate) VALUES ('INSERT INTO invoice (file_num, invoice, amount, date) VALUES ('NR9999', '444555', 3000.00, {01/01/2000})', {07/13/2000 2:29:17 PM})

I have a feeling it's because of the commas.

Querystring is a memo field.