DoCmd.RunSQL ("INSERT INTO tbDocumento(idUNICO,NumeroDoc,DataDoc,TipoDocumento,TipoMovimento,TipoPagamento,STATO,Emesso,Nota) SELECT ProvvDoc.[idUNICO],ProvvDoc.[NumeroDoc],ProvvDoc.[DataDoc],ProvvDoc.[TipoDocumento],ProvvDoc.[TipoMovimento],ProvvDoc.[TipoPagamento],ProvvDoc.[STATO],ProvvDoc.[Emesso],ProvvDoc.[Nota] FROM ProvvDoc WHERE ID = " & IDDoc & ";")
NewID = DBEngine(0)(0).OpenRecordset("SELECT @@identity FROM tbDocumento")(0)
ho provato ma mi da newid = 0