Dim Session as New NotesSession Dim DB as NotesDatabase set DB = Session.GetDatabase("","names.nsf")//这里换成你的数据库地址,注意路径