Manchmal fällt mir auch selbst eine Lösung ein (:marine), aber für alle die das noch interessiert:
' neue Query erstellen
Set Q = db.CreateQueryDef("query_name", "Select DISTINCTROW text from tabname where feld.X = Wert.X")
' Wert aus der Abfrage in Variable "Text1" setzen
text1 = DMax("[feldname]", "query_name")
' Variable anzeigen in Nachichtenfenster
MsgBox text1
:uli oder??
PS: Spaß muß sein, habe mal gelesen das man weinen soll, wenn man ein
Problem nicht gelöst bekommt, danach soll es dann besser gehen. Ob das stimmt, sei mal dahin gestellt