Sub ShowWordlist()

 DBContext=createUnoService("com.sun.star.sdb.DatabaseContext")
 DataSource=DBContext.getByName("TinyDB")
 Database=DataSource.GetConnection ("","")

 SQLResult=createUnoService("com.sun.star.sdb.RowSet")
 SQLQuery="SELECT ""Words"" FROM ""wordlist"""
 SQLResult.activeConnection=Database
 SQLResult.Command=SQLQuery
 SQLResult.execute

 exitOK=com.sun.star.ui.dialogs.ExecutableDialogResults.OK
 Library=DialogLibraries.GetByName("Wordlist")
 TheDialog=Library.GetByName("WordlistDialog")

 DialogField=Dialog.GetControl("ListBox")

 While SQLResult.next
 ListBoxItem=SQLResult.getString(1)
 DialogField.additem(ListBoxItem, DialogField.ItemCount)
 Wend

 If Dialog.Execute=exitOK Then
 CurrentItemName=DialogField.SelectedItem
 End If

 Database.close
 Database.dispose()
 End Sub