У вас может быть одинарная кавычка в одном из значений, что приведет к неверному SQL.Вы должны избегать одинарных кавычек, хотя лучше переписать свой код, чтобы вместо него использовать параметры.
sqlstr = "INSERT INTO tblContact (Email, FirstName, LastName, Comments) " & _
" VALUES ('" & Replace(Email, "'", "''") & "', '" & Replace(FirstName, "'", "''") & "', '" & Replace(LastName, "'", "''") & "', '" & Replace(Comments, "'", "''") & "')"
objConn.Execute sqlstr