Нумерация строк в запросе

Function Cou() As Long
 
Dim ws As Workspace, db As Database
Dim rsCounter As Recordset
 
On Error GoTo errCou
Set ws = DBEngine(0)
Set db = CurrentDb
1
ws.BeginTrans
2
Set rsCounter = db.OpenRecordset("select * from tabCounter")
3
rsCounter.AddNew
Cou = rsCounter!nCounter
'Close without update!'
rsCounter.Close
4
ws.CommitTrans
5
Exit Function
 
errCou:
Select Case Erl
    Case 3
        rsCounter.Close
        Set rsCounter = Nothing
        ws.Rollback
        DBEngine.Idle DB_FREELOCKS
        Resume 1
    Case 2, 4
        ws.Rollback
        DBEngine.Idle DB_FREELOCKS
        Resume 1
    Case Else
        Resume Next
End Select
 
End Function

Function adhGetNextAutoNumber(ByVal strTableName As String) As Long
 
    On Error GoTo adhGetNextAutoNumber_Err
 
    Dim wrk As dao.Workspace
    Dim db As dao.Database
    Dim rstAutoNum As dao.Recordset
    Dim lngW As Long
    Dim lngX As Long
    Dim intRetryCount As Integer
    
    Randomize
    DoCmd.Hourglass True
    intRetryCount = 0
 
    Set wrk = dao.DBEngine.Workspaces(0)
    Set db = wrk.OpenDatabase(adhCurrentDBPath() & adhcAutoNumDb, False)
    Set rstAutoNum = db.OpenRecordset(strTableName & "_ID", dbOpenTable, dbDenyRead)
 
    rstAutoNum.MoveFirst
    rstAutoNum.Edit
    rstAutoNum!NextAutoNumber = rstAutoNum!NextAutoNumber + 1
    rstAutoNum.Update
 
    adhGetNextAutoNumber = lngNextAutoNum
 
adhGetNextAutoNumber_Exit:
    DoCmd.Hourglass False
    On Error Resume Next
    rstAutoNum.Close
    Set rstAutoNum = Nothing
    db.Close
    Set db = Nothing
    wrk.Close
    Set wrk = Nothing
    Exit Function
 
adhGetNextAutoNumber_Err:
    Select Case Err.Number
        Case adhcErrRI, adhcLockErrCantUpdate2, adhcLockErrTableInUse
            intRetryCount = intRetryCount + 1
            If intRetryCount > adhcLockRetries Then
                adhGetNextAutoNumber = -1
                Resume adhGetNextAutoNumber_Exit
            Else
                dao.DBEngine.Idle
                lngW = intRetryCount ^ 2 * _
                  Int((adhcLockUBound - adhcLockLBound + 1) * Rnd() + adhcLockLBound)
                For lngW = 1 To lngW
                    DoEvents
                Next lngW
                Resume
            End If
        Case Else
            MsgBox "Error " & Err.Number & ": " & Err.Description, _
             vbOKOnly + vbCritical, "adhGetNextAutoNumber"
            adhGetNextAutoNumber = -1
            Resume adhGetNextAutoNumber_Exit
    End Select
 
End Function

alter table Таблица1 alter column ПолеСчетчик counter(1,1)

Function MyFun(varDummy As Variant, Optional iStartValue As Variant) As Long
Static n As Long
If IsMissing(iStartValue) Then
    MyFun = n
    n = n + 1
Else
    n = iStartValue
    MyFun = True
End If
End Function

SELECT (Select Sum(1) From t AS p Where p.f<=p1.f), p1.f
FROM t AS p1
ORDER BY p1.f;

SELECT DCount("f", "t","f<=" & CStr(f)), f
FROM t
ORDER BY f;

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