Insert statement - apostraphe in value

[bugsy]

Hi

I have an insert statement on a form

    sSql = "Insert Into ChangeHistory  VALUES ('" & Group_Contact.Value & "', '" & ID.Value & "','" & ctrl.Name & "','" & ctrl.OldValue & "','" & Value & "', '" & User & "','" & Now & "')"
    CurrentDb.Execute sSql

What should for it to accept value with apostraphe (') in them ?

I can replace them with blank stirngs, bet athats not really solution..

    Value = ctrl.Value
    Value = Replace(Value, "'", "")

 

[RuralGuy]

Double up the single ticks!
Value = Replace(Value, "'", "''")