Buenas:
Alguien me puede decir por que falla esta parte del codigo para insertar datos en la base de datos:
FrmPrincipal.mes(0 - 11) = son los meses del año que coincide con los nombres de las columnas de la base de datos
FrmPrincipal.lblmes(0-11) = numero de ventas que ha habido ese mes.

For x = 0 To 11
FrmPrincipal.TBL.Fields(FrmPrincipal.mes(x)) = FrmPrincipal.lblmes(x)
Next x

No entiendo muy bien ese código, pero para insertar registros en una tabla hay que poner previamente un "AddNew" y posteriormente un "Update".

Saludos

e dixo una parte...eso esta puesto ene l codigo real.

si pones el codigo entero podremos ayudarte mejor. puede que el fallo no este aqui, y si en otra parte que tu crees que no es...

CODIGO ENTERO:

Dim sBuscado As String
sBuscado = "Empresa = '" & FrmPrincipal.lvw1.SelectedItem & "'"
FrmPrincipal.TBL.find sBuscado, 1, adSearchForward, 1
If FrmPrincipal.TBL.EOF Then FrmPrincipal.TBL.MoveFirst
FrmPrincipal.TBL.Delete

FrmPrincipal.TBL.AddNew
'datos generales
FrmPrincipal.TBL.Fields("Código") = FrmPrincipal.Label8
FrmPrincipal.TBL.Fields("Empresa") =FrmPrincipal.Label2
For x = 0 To 11
FrmPrincipal.TBL.Fields(FrmPrincipal.mes(x).Captio n) =FrmPrincipal.lblmes(x)
Next x
Unload Me