Как на VBA узнать номер записи и общее количество.

      .....
      Dim Tb As Recordset
      Dim kol as Integer     
      Set Tb = dbs.OpenRecordset("Table")
      kol = Tb.RecordCount
        ......

Sub AbsolutePositionX()
 
   Dim dbsNorthwind As Database
   Dim rstEmployees As Recordset
   Dim strMessage As String
 
   Set dbsNorthwind = OpenDatabase("Northwind.mdb")
   ' AbsolutePosition only works with dynasets or snapshots.
   Set rstEmployees = dbsNorthwind.OpenRecordset("Employees", dbOpenSnapshot)
 
   With rstEmployees
      ' Populate Recordset.
      .MoveLast
      .MoveFirst
 
      ' Enumerate Recordset.
      Do While Not .EOF
         ' Display current record information. Add 1 to 
         ' AbsolutePosition value because it is zero-based.
         strMessage = "Employee: " & !LastName & vbCr & _
            "(record " & (.AbsolutePosition + 1) & " of " & .RecordCount & ")"
         If MsgBox(strMessage, vbOKCancel) = vbCancel Then Exit Do
         .MoveNext
      Loop
 
      .Close
   End With
 
   dbsNorthwind.Close
 
End Sub