SubForm1_Load()
DimdbAsDatabase
DimdsAsSnapshot
DimiNumAsInteger'總筆數
DimwsqlAsString'SQL字串
wsql="SelectCount(*)fromAuthorsWhereAU_ID>10"
Setdb=OpenDatabase("c:vbiblio.mdb")
Setds=db.CreateSnapshot(wsql)
iNum=ds(0)
MsgBox"總筆數為" Str$(iNum)
EndSub
怎麼樣，是不是一樣呢，只差在一個是ADO，一個是DAO而已！->
