Hallo KiTaMann,
wenn ich das jetzt richtig verstehe musst Du eine View Refreshen (Preisliste sagst Du ist eine View).
Dies solltest Du erreichen mit einem View Refresh:
Dim View As NotesView
Set View = db.GetView("NAME der VIEW")
Call View.Refresh
Zum neu Laden des aktuellen Fensters:
Dim uiws As New NotesUIWorkspace
Call uiws.reloadWindow()