Visual Basic.NET - Problemas INSERT INTO

Tengo un problema al hacer una insert, paso a comentaro.

necesito meter en la base de datos ' (comilla simple) y no puedo ya que la interpreta como inicio/fin de cadena de txt, con lo cual me que sin poder hacer la insert. que puedo hacer

Ejemplo:
quiero insertar esto:
Select * from cllientes where nombre ='juan'

en una tabla que se llama consultas con los campos NomSQL y SQL:
la Insert que deberia de hacer es esta:

INSERT INTO Consultas (NonSQL,SQL) VALUES ('CONSULTA1','Select * from cllientes where nombre ='juan')

pero como los datos CONSULTA1, Select * from cllientes where nombre ='juan'

los cojo tal cual de un form pues lo que me queda al generar la cadena SQL es:
INSERT INTO Consultas (NonSQL,SQL) VALUES ('CONSULTA1','Select * from cllientes where nombre ='juan'')

lo cual como es normal da error de que esta mal construida la sentencia SQL

Que pouedo hacer

Dim sNonSQL as String="CONSULTA1"
Dim sSQL as String = "Select * from cllientes where nombre='Juan'"

INSERT INTO Consultas (NonSQL,SQL) VALUES ('" & sNonSQL & "','" & sSQL & "' )",Coneccion)

Dim sNonSQL as String="CONSULTA1"
Dim sSQL as String = "Select * from cllientes where nombre='Juan'"

INSERT INTO Consultas (NonSQL,SQL) VALUES ('" & sNonSQL & "','" & sSQL & "' )",Coneccion)