из фака по счётчикам:

A2: Более широкий круг применимости у такого способа:

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
CurrentProject.Connection.Execute "INSERT ..."
rs.Open "SELECT @@identity as cou", CurrentProject.Connection
переменная = rs!cou
rs.Close



Однако и этот способ имеет ограничения, а именно:

работает только через ADO , только в Jet 4 и позже, и только с базами формата Аксесса 2000 и позже;

--------------------------------------------------------------------------

Я может и торможу, скорей всего так и есть, но SELECT @@IDENTITY работает и через DAO:


Прошу поправте меня скорей ;)

речь идёт не о ADP а о MDB

IMHO, тогда в факе надо ету строчку
исправить на:

Безмерно рад, что внёс свой маленький вклад в общее дело ;)