Bases de Datos desde Visual basic 6.0

[elguajiro]

Buenos dias a todos, estoy trabajando con una base de datos access desde visual basic 6.0, cuando intento actualizar un registro o guardar uno nuevo me envia el siguiente error (Error de Sintaxis en la Cadena en la Exprision de Consulta '#12:00:00 a.m. #' where Id=1), ya he intentado depurar el codigo agrgandole comillas dobles o comillas simples cuando sea el caso, pero me sigue enviando el mismo error y no puedo actualizar ni insertar un registro nuevo.

Este es el codigo que estoy utilizando:

Select Case ACCION
Case EDITAR_REGISTRO
cnn.Execute "UPDATE EMPLEADOS Set Nombres = '" & Text1(1) & "'" & _
", Apellidos = '" & Text1(2) & "'" & _
", Fecha_Nac = #" & Text1(4) & "#" & _
", Lugar_Exp = '" & Text1(5) & "'" & _
", Fecha_Ing = #" & Text2 & "#" & _
", Fecha_Ret = #" & Text3 & "#" & _
", Fecha_Traslado_Fondo = #" & Text4 & "#" & _
"' where Id = " & IdRegistro & ""

Case AGREGAR_REGISTRO

cnn.Execute "INSERT INTO EMPLEADOS " & "(Nombres,Apellidos,Cedula,Lugar_Exp,Fecha_Nac,Fec ha_Ing,Fecha_Ret,Fecha_Traslado_Fondo) VALUES(" & _
Text1(1) & "','" & _
Text1(2) & "','" & _
Text1(3) & "," & _
Text1(5) & "','" & _
Text1(4) & "'#,'" & _
Text2 & "'#,'" & _
Text3 & "#,'" & _
Text4 & "#,'" & _
Format(Date, "dd/mm/yyyy") & "')"

Antes que nada Gracias por la ayuda que me puedan bindar en este tema.