取得其他的資料庫

Dim ss As New NotesSession

Dim db As NotesDatabase

Set db = ss.GetDatabase("anotes", "路徑\資料庫名稱.nsf")