'1. Teil: auslesen der UNID aus Doc1/DB1
Dim doc As NotesDocument
Dim unid As String
unid = doc.Feld_mit_UniversalID_des_gesuchten_Docs_in_DB2(0)
...
'2. Teil: finden des Doc2/DB2 anhand UNID
Set notesDocument2 = notesDatabase2.GetDocumentByUNID( unid$ )
...
'3. Teil: aufrufen des Docs im Frontend zur Bearbeitung
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.EditDocument( True, notesDocument2 )
Call uidoc.GotoField( "Body" )
natürlich solltest Du für den Fall, daß kein Doc vorhanden ist, Errorroutinen einbauen. Aber das wars so im Großen und Ganzen schon vom Prinzip her.