使用NotesAPI:
Declare Function W32_NSFDbOpen Lib "nnotes.dll" Alias "NSFDbOpen" _
( Byval dbName As Lmbcs String, hdb As Long ) As Integer
Declare Function W32_NSFDbClose Lib "nnotes.dll" Alias "NSFDbClose" ( Byval hdb As Long ) As Integer
Declare Function W32_DesignRefresh Lib "nnotes.dll" Alias "DesignRefresh" ( Byval server As String,Byval lnghNote As Long, Byval flags As Integer , Byval null0 As Long, Byval null1 As Long) As Integer
Sub Initialize
Dim hDB As Long
Dim ret%
Call W32_NSFDbOpen("servername!!DbName", hDb)
Call W32_DesignRefresh("servername", hDb, 1, 0, 0)
Call W32_NSFDbClose(hDb)