Visual Basic - Error en Consulta SQL

Hola a tods... espero que me puedan ayudar tengo la siguiente query en SQL y me da un error al momento de cargar.

aa01="15.560.500-1"
aa02= "O'HIGGNS ESQUINA CONDELL"
aa03= "SANTIAGO"

EL SEGUNDO DATO ESTA CON UN APOSTROFE (') Y ESTA BIEN

LA CONSULTA ES LA SIGIENTE

cSql= "INSERT INTO direccion (clie_rutcli,clie_direc,clie_ciudad)
cSql = cSql & " values ( ' "
cSql = cSql & aa01 & "',' "
cSql = cSql & aa02 & "',' "
cSql = cSql & aa03 & "')"
con3.Execute (cSql)

el dato que me da error e cuando tiene un apostrofe el variable de asignacion, como resulve para me guarde esto tipo de datos

Si una cadena es susceptible de contener apostrofos, no puede insertarse tal cual en la sentencia, debes reemplazar el apostrofo simple por un apostrofo doble, en tú caso la sentencia debería quedar:

cSql= "INSERT INTO direccion (clie_rutcli,clie_direc,clie_ciudad)
cSql = cSql & " values ( ' "
cSql = cSql & replace(aa01,"'","''") & "',' "
cSql = cSql & replace(aa02,"'","''") & "',' "
cSql = cSql & replace(aa03,"'","''") & "')"

He usado el replace en todas las cadenas ya que no se cuales son las que pueden contener apostrofos.

Muchas gracias resulto