потому что вторая база уже работает давно и хорошо, а первая внедрилась недавно, а модуль который сейчас мне моск выносит - еще в разработке.....
народ, подскажите чего не так делаю...вот код....
Dim ws As New NotesUIWorkspace
Dim ws1 As New NotesSession
Dim db1 As NotesDatabase
Dim parent_Doc As NotesDocument
Dim uidoc1 As NotesUIDocument
Set db1 = ws1.GetDatabase("","")
Set parent_doc = db1.CreateDocument
Set uidoc1 = ws.ComposeDocument("","","PO")
Set doc1 = uidoc1.Document
Call doc1.MakeResponse(parent_doc)
Call uidoc1.refresh