Da muss die API her - so in etwa (geklaut aus der LDD)
Declare Function W32_NSFDbOpen Lib "nnotes.dll" Alias "NSFDbOpen" ( Byval dbName As 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 hdb As Long, Byval dwFlags As Long, Byval null0 As Long, Byval null1 As Long) As Integer
Dim hDB As Long
Dim ret%
call W32_NSFDbOpen("DBNAME.nsf", hDb)
' you may check return value and you may check if hDb is not 0 - just in case as you should not use null handle
call W32_DesignRefresh("Template SERVER NAME", hDb, 0,0,0)
call W32_NSFDbClose(hDb)
Andreas