Visual Basic - error (800040e7)

hola a todos
tengo un pequeño mas interesante problema vb 6 error que dice: no coinsiden los tipos de datos en la expresion de criterios.

y este es el codigo
Select Case ACCION
Case EDITAR_REGISTRO

cnn.Execute "UPDATE GuiasEscort Set Nombre = '" & Text1(1) & _
"', ApellidoP = '" & Text1(2) & _
"', ApellidoM = '" & Text1(3) & _
"', puesto = '" & Combo1.Text & _
"', direccion = '" & Text1(4) & _
"', TelPart = '" & MaskEdBox1(0) & _
"', TelCell = '" & MaskEdBox1(1) & _
"', FechaIng = '" & MaskEdBox1(2) & _
"', VenCredencial = '" & MaskEdBox1(3) & _
"', Nacimiento = '" & MaskEdBox1(4) & _
"', Identificacion = '" & Text1(5) & _
"', Email = '" & Text1(6) & _
"', Observaciones = '" & Text1(7) & _
"', Radio = '" & Check1(0).Value & _
"', Cargador = '" & Check1(1).Value & _
"', PilaEx = '" & Check1(2).Value & _
"', Contador = '" & Check1(3).Value & _
"', Termometro = '" & Check1(4).Value & _
"', Silvato = '" & Check1(5).Value & _
"', Carpeta = '" & Check1(6).Value & _
"', Sombrero = '" & Check1(7).Value & _
"', Uniforme = '" & Check1(8).Value & _
"' Where Clave = " & IdRegistro
Case AGREGAR_REGISTRO

cnn.Execute "INSERT INTO GuiasEscort (Nombre,ApellidoP,ApellidoM,puesto,direccion,TelPart,TelCell,FechaIng,VenCredencial,Nacimiento,Identificacion,Email, Observaciones, Radio, Cargador, PilaEx, Contador, Termometro, Silvato, Carpeta, Sombrero, Uniforme,Clave) VALUES('" & _
Text1(1) & "','" & _
Text1(2) & "','" & _
Text1(3) & "','" & _
Combo1.Text & "','" & _
Text1(4) & "','" & _
MaskEdBox1(0) & "','" & _
MaskEdBox1(1) & "','" & _
MaskEdBox1(2) & "','" & _
MaskEdBox1(3) & "','" & _
MaskEdBox1(4) & "','" & _
Text1(5) & "','" & _
Text1(6) & "','" & _
Text1(7) & "','" & _
Check1(0).Value & "','" & _
Check1(1).Value & "','" & _
Check1(2).Value & "','" & _
Check1(3).Value & "','" & _
Check1(4).Value & "','" & _
Check1(5).Value & "','" & _
Check1(6).Value & "','" & _
Check1(7).Value & "','" & _
Check1(8).Value & "','" & _
Text1(0) & "')"
End Select

ese error se da porque no coincide el tipo de dato con lo q ingresas es decir:

fijate de que tipo son los campos(numerico,texto,fecha,etc) ya que para campos numericos debes insertar datos comillas y text con comillas simples ej:

nroingreso=" & txtnro & "
descripcion='" & txdescri & "'

fijate y avisa

ok muchas gracias por tomar tu tiempo y contestar el problema era que tengo campos fecha en la base de datos el formato que se tiene con los maskedit es el mismo del campo y es donde dice que los criterios no son iguales al momento que cambie los campos de fecha a text no existio ningun ploblema el detalle es que a hora quite los maskedit coloque dtpicker y tanto con campos texto, como fecha marca error al querer al macenar los datos en la base de datos ese es es el proble que no acepta como lo mando almacenar el formato de la fecha es elmismo.

si puedes ayudar un poco te lo agradesco
gracias.

NO HACE FALTA Q CAMBIES EL FORMATO DEL CAMPO FECHA XQ AMI ME FUNCIONA BIEN LO QUE SI PONELE A LOS MASKEDIT .TEXT ES DECIR

cnn.Execute "INSERT INTO GuiasEscort (Nombre,ApellidoP,ApellidoM,puesto,direccion,TelPart,TelCell,FechaIng,VenCredencial,Nacimiento,Identificacion,Email, Observaciones, Radio, Cargador, PilaEx, Contador, Termometro, Silvato, Carpeta, Sombrero, Uniforme,Clave) VALUES('" & _
Text1(1) & "','" & _
Text1(2) & "','" & _
Text1(3) & "','" & _
Combo1.Text & "','" & _
Text1(4) & "','" & _
MaskEdBox1(0).TEXT & "','" & _ ' XQ ALOMEJOR TE TOMA OTRA PRPIEDAD DEL OBJ COMO MASK O OTRA
MaskEdBox1(1).TEXT & "','" & _
MaskEdBox1(2).TEXT & "','" & _
MaskEdBox1(3).TEXT & "','" & _
MaskEdBox1(4).TEXT & "','" & _
Text1(5) & "','" & _
Text1(6) & "','" & _
Text1(7) & "','" & _
Check1(0).Value & "','" & _
Check1(1).Value & "','" & _
Check1(2).Value & "','" & _
Check1(3).Value & "','" & _
Check1(4).Value & "','" & _
Check1(5).Value & "','" & _
Check1(6).Value & "','" & _
Check1(7).Value & "','" & _
Check1(8).Value & "','" & _
Text1(0) & "')"
End Select

gracias por tu pronta contestacion asi es cuando relizo la consulta me la accepto con mask ya que al poner maskedit1(i).text me carca error teniendo el campo fecha en corta

de esta forma los cargo.

'SE CARGAN LOS DEMAS TEXTBOX
b = 6
For k = 0 To 4
.MaskEdBox1(k).Mask = LV.SelectedItem.ListSubItems(b).Text
b = b + 1
Next

y al momento de mandarlos guardar al modificar o un nuevo registro y con .text marca el error de criterios