error al insertar datos desde un cuadro combinado Access

[h_potter16]

hola soy nuevo en esto pero necesito ayuda,

En un cuadro combinado tengo 3 opciones, en tramite, cancelado, concluido

cuando le doy en concluido quiero que se guarde un otra tabla esos datos, así que tengo esto:

Código:

Private Sub Cuadro_combinado65_Change()
If Me.Cuadro_combinado65 = "Concluido" Then
strSQL = "INSERT INTO Etapa2 (NUMERO_REGISTRO, ORGANISMO,[AREA DE ASIGNACION], SECCION, NIVEL, CATEGORIA, PUESTO, [REQUERIMIENTO PROFESIONAL], CLASIFICACION, [NUMERO DE PLAZA], [ID BTI], GRUPO, SELECCIONADO, FICHA, PROFESION, [REGIMEN CONTRACTUAL], [ANTIGUEDAD EN AÑOS], [ANTIGUEDAD EN DIAS],[ESTATUS ACTUAL], [FECHA DE RECEPCION])"
strSQL = strSQL & "SELECT " & lngSiguiente & ", '" & Me.ORGANISMO & "', '" & Me.AREA_DE_ASIGNACION & "', '" & Me.SECCION & "', '" & Me.NIVEL & "', '" & Me.CATEGORIA & "', '" & Me.PUESTO & "', '" & Me.REQUERIMIENTO_PROFESIONAL & "', '" & Me.CLASIFICACION & "', '" & Me.[NUMERO DE PLAZA] & "', '" & Me.[ID BTI] & "', '" & Me.GRUPO & "', '" & Me.CANDIDATO & "', '" & Me.FICHA & "', '" & Me.PROFESION & "','" & Me.REGIMEN_CONTRACTUAL & "', '" & Me.ANTIGUEDAD_EN_AÑOS & "', '" & Me.ANTIGUEDAD_EN_DIAS & "','" & Me.ESTADO & "', '" & Me.FECHA_DE_RECEPCION & "'"
strSQL = strSQL & "FROM Etapa1"
CurrentDb.Execute strSQL, dbFailOnError
Me.Requery
DoCmd.GoToRecord , , acLast
End If
End Sub

me manda un mensaje de error el cual es el siguiente:

Se ha producido el error '3134' en tiempo de ejecucion:
Error en la instruccion INSERT INTO

ya lo hice en un boton y si me funciono perfectamente, pero cuando el codigo lo cambio al cuadro combinado me manda el error

que hago!!!!

muchas gracias por su ayuda!!!!

PD: Trabajo en VBA Access 2007

[h_potter16]

Hola de nuevo, ya vi mi error faltaba declarar las variables muchas gracias:

Código:

Dim strSQL As String, lngSiguiente As Long
lngSiguiente = Nz(DMax("NUMERO_REGISTRO", "Tabla1")) + 1

como cierro el tema? gracias!!