Howzit
Try this
lsSQL = ""
lsSQL = lsSQL & " INSERT INTO Tbl_ContactDetails ( CompanyRef, Forename, Surname, CreatedBy, CreatedWhen, MainContact ) "
lsSQL = lsSQL & " VALUES ( " & ICompanyRef & ", '" & lsForenames & "', '" & lsSurname & "', '" & SUser & ", Date(), 0)"