yep
Dim DBColumn As Variant, sel As Variant
Dim ws As New NotesUIWorkspace
strFormula$ = "@DbColumn( """"; """"; ""AllDocuments"" ; 6 )"
dbColumn = Evaluate( strFormula$ )
If DbColumn(0) = "" Then Exit Sub
sel = ws.Prompt(PROMPT_OKCANCELCOMBO, "Auswaghl", "Bitte wählen", DbColumn(0), DbColumn)
ich mache das immer mit der Listbox anstatt mit der combobox
sel = ws.Prompt(PROMPT_OKCANCELLIST, "Auswahl", "Bitte wählen", DbColumn(0), DbColumn)
cu