Visual Basic - INSERT con nulos

Hola a todos... yo tengo un problema que solucioné de una manera que no me dejó conforme

debo hacer un insert con un valor en nulo o no, dependiendo de lo que escoja el usuario, a saber

dim a as variant (varian porque acepta la asignacion de null)
dim sql as string

sql= "INSERT INTO TABLA (FECHA) VALUES (#" & a & "# );"
ó
sql= "INSERT INTO TABLA (STRING) VALUES ('" & a & "');"

HAsta aca todo bien excepto cuando el valor de a vienen en null, puedo hacer esto y esta bien
sql= "INSERT INTO TABLA (FECHA) VALUES (" & a & " );"

Pero.... como puedo hacer para poner o no las comillas simples o numerales o sacarlos dependiendo del valor de a, sin hacer:

if isNull(a) then
sql= "INSERT INTO TABLA (STRING) VALUES ('" & a & "');"
else
sql= "INSERT INTO TABLA (FECHA) VALUES (" & a & " );"
endif
conexion,execute sql

ya que si los valores que pueden venir en nulll son varios esto se complica muchisimo

Espero haberme expresado bien y Gracias..