Visual Basic - Problema con consultas y fechas

hola...bueno mi duda es la siguiente
tengo que agregar en un campo de tipo fecha...un valor que puede ser nulo...
y al hacerlo en una consulta (Insert into)...me da problema...error de sintaxis en la instruccion insert into me dice....
si alguien me ayuda se lo agradezco montones...

pd: el control de donde saco la fecha...es un maskedit box...por si se podran imaginar el rollo con la mascara de entrada...

proba asi

"insert into tabla (nombre,fecha,telefono) values('PEPE',NULL,'444444')"

oye...
en todo caso estaba asi...que es lo mismo...
(porque a veces puede o no tener registro el campo de tipo fecha)

asi esta...

If MMask1.Text = "__-__-____" Or MMask1.Text = "" Then
fecha = Null
Else
fecha = "#" & MMask1 & "#"
End If

SQL = "INSERT INTO empresas([ID empresa],rut,empresa,[fecha clausula],[feriados legales]) VALUES(" & Val(Trim(cod)) & ",'" & Trim(Text1) & "','" & Trim(Text2) & "'," & fecha & "," & Val(Text3) & ")"


y pasa como null.....cuando reviso. paso a paso...sale asi el campo:

INSERT INTO empresas([ID empresa],rut,empresa,[fecha clausula],[feriados legales]) VALUES(4,'19','mi empresa',,10)
|
|<-------espacio en blanco de fecha

asi...pasa y me larga el error de sintaxis en la instruccion insert into...

que hago??

proba asi


If MMask1.Text = "__-__-____" Or MMask1.Text = "" Then

SQL = "INSERT INTO empresas([ID empresa],rut,empresa,[fecha clausula],[feriados legales]) VALUES(" & Val(Trim(cod)) & ",'" & Trim(Text1) & "','" & Trim(Text2) & "',NULL," & Val(Text3) & ")"

Else

SQL = "INSERT INTO empresas([ID empresa],rut,empresa,[fecha clausula],[feriados legales]) VALUES(" & Val(Trim(cod)) & ",'" & Trim(Text1) & "','" & Trim(Text2) & "',#" & MMask1 & "#," & Val(Text3) & ")"

End If

gracias Gon.. por tu ayuda...un saludo