急救!

Question

請問各位大鳥,我想要取出一個資料表里最后一條記錄的某一個欄位的值,為何這我樣寫,取出的卻是第一條記錄的值!
Dim dbs As Database
    Dim strName As String
    Dim rstArchivesExist As Recordset
    Dim fidArchivesName As Field
Set dbs = CurrentDb
    Set rstArchivesExist = dbs.OpenRecordset("tbl月檔情況", dbOpenSnapshot)
    Set fidArchivesName = rstArchivesExist.Fields("月檔名稱")
    rstArchivesExist.MoveLast
    strName = fidArchivesName.Value另外哪里可以下載vb6.0繁休版的?

Answer 1

应该调下次序：
Dim dbs As Database
    Dim strName As String
    Dim rstArchivesExist As Recordset
    Dim fidArchivesName As Field
Set dbs = CurrentDb
    Set rstArchivesExist = dbs.OpenRecordset("tbl月檔情況", dbOpenSnapshot)    
    rstArchivesExist.MoveLast
    Set fidArchivesName = rstArchivesExist.Fields("月檔名稱")
    strName = fidArchivesName.Value