Visual Basic - Ayuda BD en VB con ADO y Access

Tengo un problema con este codigo me sale que no coiciden los tipos de datos con la expresion de criterios .... les pego el codigo de antemano muchas gracias :)




Select Case ACCION
Case EDITAR_REGISTRO
cnn.Execute "UPDATE Personas set Nombre = '" & Text1(1) & _
"', Apellido = '" & Text1(2) & _
"', Telefono = '" & Text1(3) & _
"', Direccion = '" & Text1(4) & _
"', Sexo = '" & CmbSexo.ListIndex & _
"', A2008 = '" & a1 & _
"', A2009 = '" & a2 & _
"', A2010 = '" & a3 & _
"', A2011 = '" & a4 & _
"' where Id = " & IdRegistro & ""
Case AGREGAR_REGISTRO

cnn.Execute "INSERT INTO Personas " & "(Nombre,Apellido,Telefono,Direccion,Sexo,FechaDeAlta,A2008,A2009,A2010,A2011) VALUES('" & _
Text1(1) & "','" & _
Text1(2) & "','" & _
Text1(3) & "','" & _
Text1(4) & "','" & _
CmbSexo.ListIndex & "','" & _
Check1 & "','" & _
Check2 & "','" & _
Check3 & "','" & _
Check4 & "','" & _
Format(Date, "dd/mm/yyyy") & "')"


End Select

rs.Requery


Call CargarListView(FrmPrincipal.LV, rs)

DoEvents
Unload Me

-------------------------------------------------------------------------------------------------------------------------------

Muchas gracias por su ayuda :)

Si no lo he entendido mal ACCION sera una variable tipo String por lo que cuando haces el case deberia ir entre parentesis case "EDITAR_REGISTRO" o case "AGREGAR_REGISTRO"

Option Explicit

Enum EACCION
AGREGAR_REGISTRO = 0
EDITAR_REGISTRO = 1
End Enum

Public IdRegistro
Public ACCION As EACCION
Public a1, a2, a3, a4 As String

-------------------------------------------------------------------------------------------------------

asi es komo tengo las variables deklaradas

Además de lo anterior si el telefono se ha definido como numérico no necesita comillas, asi como los check que se guardan como 0 y 1.