Estou com um problema tenho muitos campos no meu form e incluir eu consigo mas alteralos  o sistema me fala (TOO MANY FIELDS DEFINED) q são muitos arquivos definidos ou seja exedeu a quantidade de campos

E AGORA?

Se é este o problema vc poderia fazer dois Updates , assim iria dividir os campos em duas instruções SQL...

Como eu faria isso?

 

Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & "Cadastro.Mdb", False, False)
query = "Select * From COMPRAS where P1 = '" & P1 & "'"
Set dyn = xxbco.CreateDynaset(query)

Dim SQL As String
SQL = "UPDATE COMPRAS SET P1='" & P1 & "' "   ETC

xxbco.Execute SQL
xxbco.Close