اين چطور:

Adodc1.Recordset.MoveLast
x = Adodc1.Recordset.AbsolutePosition - 1