--------VB主要處理的是MDB格式的數據庫，但就在這方面，它就偏偏出了差錯，先看看下例：
DimdbAsDatabase
DimrsAsRecordset
Setdb=OpenDatabase(App.Path&"zzr.mdb")
Setrs=db.OpenRecordset("test")
Debug.Printrs.RecordCount
--------此例假設在應用程序目錄下有一個名為"zzr.mdb"的數據庫，而且它裡邊有一個名為"test"的表，此程序的目的就是求出該表中的記錄的總數。此處用到的是"表"對象的RecordCount屬性，這樣用在一般性況下是正確的，但並不能保證在所有的情況下都能得出正確的結果，比如說表中的數據量很大，或者是數據庫受到過什麼損害等等。如果碰到這種情況，我們可以換一個角度來處理。請看下面的程序：
DimdbAsDatabase
DimrsAsRecordset
DimNumAsLong
Setdb=OpenDatabase(App.Path&"zzr.mdb")
Setrs=db.OpenRecordset("test")
Num=0
rs.MoveFirst
DoWhileNotrs.EOF()
Num=Num 1
rs.MoveNext
Loop
Debug.PrintNum
--------這樣，最後得到的Num即為正解結果，這種方法的思路是從表的開始處一直順序走到結尾，就可以"數"出表中到底有多少條記錄。這種方法看起來很笨，但是它卻是一個相當准確的方法，大家不防可以試一下。
----再看筆者的說法：
----先看上面一行程序：Debug.Printrs.RecordCount，VB5在讀取數據表時並非一次性將全部記錄均讀入內存（想想看如果有一個表，裡面有一百萬個記錄甚至一億個或更多，要想全部讀入內存，你的機器能承受得了嗎？），只是先讀入一部分（在下認為這是VB的優異這處），recordset對象並非表的全部記錄，只是已讀入內存的部分，故用rs.recordcount得到的不是表的記錄總數。
----再看上面程序的改良部份：
DoWhileNotrs.EOF()
Num=Num 1
rs.MoveNext
Loop
Debug.PrintNum
----在下用十萬個記錄的表對上面這段程序做了個測試，結果花了六分半鐘（intel166,32M內存），如此的等待，閣下有耐心無？請看在下的對策：
----假設數據表已打開，用
rs.Recordset.MoveLast'將指針移到表的最後一筆記錄
debug.printrs.Recordset.RecordCount
即可得出正確結果。
或者用下一種方法亦可
rs.Recordset.MoveLast
debug.printrs.Recordset.AbsolutePosition 1
'調用絕對位置,因vb的第一筆記錄是由零算起，故要 1。->
