dim SQLstring as string
dim rec_aust as recordset
 
SQLstring="SELECT AustKey, AustName FROM Austellung;"
Set rec_aust = db.openrecordset(sqlstring)
ComboBox.Clear
if not rec_aust.eof then
    while not rec_aust.eof
        combobox.additem rec_aust.fields(1).value
        combobox.itemdata(combobox.NewIndex)=rec_aust.fields(0)
    wend
endif

AustKey = combobox.itemdata(combobox.listindex)

Immer noch auf der Suche nach dem "Tu's trotzdem"-Button...