¿Cómo guardar datos de combobox junto con registros importados desde excel a una tabla foxpro?.

me explico...

En el Form1 tengo varios combobox donde selecciono el año(CmbAño), el grado escolar(CmbGrado), el periodo escolar(CmbPeriodo) y por ultimo la asignatura(CmbAsignatura)...Lo que necesito es que me guarde también lo seleccionado en los combobox, la cantidad de veces de registros que tenga el archivo excel.

Esta es la Tabla con sus respectivos campos:

ESTUDIANTES(Id, nombres, apellidos,calificación,año,grado,periodo,asignatura).

ya los registros de excel los extrae y los guarda sin ningún problema en la tabla, el código es el siguiente:

::::::::::::::::::::::Botón Importar::::::::::::::::::::::

colW = 4
fILEW=GETFILE("CSV")
fILE2=RTRIM(LTRIM(SUBSTR(fILEW,5,20)))
thisform.Texto1.Value=fILE2
IF .not. FILE(fILEW)
WAIT WINDOW 'El ARCHIVO ..'+fILEW+'.. NO EXISTE. Por favor Cópielo'
this.SetFocus()
RETURN
ENDIF

IDW = SPACE(15)
NombrW = SPACE(20)
ApellW=SPACE(20)
CalificaW=SPACE(15)

USE Estudiantes EXCLUSIVE
SELECT Estudiantes

APPEND FROM &fILEW DELIMITED WITH CHARACTER ';'

GO TOP
DELETE ALL FOR IDW = 'Id'
PACK
REPLACE ALL nombres WITH Nombres
GO TOP
DO WHILE colW < 4
IF SUBSTR(IDW,colW,1) = ' '
colW = colW - 1
REPLACE id WITH SUBSTR(IDW,1,colW+1)
replace nombres WITH SUBSTR(NombrW,colW+2,4)
REPLACE apellidos WITH SUBSTR(NumDocW,colW+3,4)
REPLACE calificación WITH LTRIM(SUBSTR(CalificaW,colw+4,4))
colW = 4
IF EOF()
EXIT
ELSE
SKIP
ENDIF

ELSE
colW = colW + 1
ENDIF

ENDDO
IF MESSAGEBOX("Datos Importados con éxito!!!, desea salir?",4+64,"CLIC")=6
thisform.Release
ENDIF

:::<em style="font-size: 14px; line-height: 1.5em;">De antemano les agradezco...:::