打不开数据库文件

moyhtayht

我在客户端上编写如下代码 ：
    Dim  s As New NotesSession
    Dim db As NotesDatabase
    Dim ndb As NotesDatabase

    Set db=s.CurrentDatabase
    Set ndb=s.GetDatabase(db.server,"mail.nsf")

    Dim nview As NotesView
    Dim ndoc As NotesDocument
    ‘出错处
    Set nview=ndb.GetView("People")
    Set ndoc=nview.GetFirstDocument
----------------------------------------------------------
但是到倒数第二行出错，出错提示：
Database Names.nsf Has Not Been Opened Yet请各位大侠帮忙呀，这段代码也是