Function Cou() As String 'а там было 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'
Cou =  "MIL"  & Format(rsCounter!nCounter,  "0000 ")
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