Visual Basic - Problema con "Insert Into"

Tengo el siguiente problema, cuando trato de insertar alguna variable de tipo caracter: Si una de las variables tiene el caracter " ' " (comilla simple), el execute se cae, porke encontraria 2 ' ' ejemplo ( ' your' s ' ), entonces keda una inconsistencia. alguien sabe como solucionarlo?

sql = " INSERT INTO cd"
sql = sql & " (id_reg, num_cd, path_mp3, id_tipo) "
sql = sql & "VALUES (" & Val(cod) & "," & Val(Me.Cb_Numcd.Text) & ",'" & Me.lstcanciones.Text & "'," & "4" & ")"
cnn.Execute sql, , adCmdText

hola,
aqui debes "jugar" un poco con los comillas, debes remplazar tu ' con " y encerrar este doble" con un o dos doble"s. Asi te aparece un simple' como caracter.
No te puedo aydar más, porque no me recuerdo como era en detaille, pero es un hueveo tan grande que yhace tiempo busco caminos para evitar este problema.
saludos y suerte
mike