Dim   CurrentRec   As   Recordset
Dim   strSql   As   String
Dim   CurrentDB   As   Database    
            
Set   CurrentDB   =   OpenDatabase(AppDbName,   True,   False,   ";pwd=1234")    

strSql   =   "select   *   from   TAB1   "      

Set   CurrentRec   =   CurrentDB.OpenRecordset(strSql,   dbOpenDynaset)       

     
  当我用   CurrentRec.RecordCount   时，返回总是为   1   
 
'****************  以上为网上摘取的内容 ( 自己偷个懒 )  ********************
 
原因:  未知
 
解决方法:
        调用 CurrentRec.RecordCount   之前, 先使用下面2句:
        CurrentRec.MoveLast
        CurrentRec.MoveFirst
 
 
'***************    网上搜来的解决方法  ************************************