Dim DestinationcDoPage as CdoPage = e.cDoPage.LoadcDoPage("ASS123")
DestinationcDoPage("FILTER")("DESC").Value = e.cDoPage("QUERY")("ANNOHID").Value
DestinationcDoPage.ShowDialog
'DestinationcDoPage.Show