What query return save to variable

[jasmin_m]

I have a query, it return one value and I need to save that
value in variable.
How to do it ?

 

[Guus2005]

Easy way:

variable = Dlookup("fieldname","queryname")

Not so easy way:

dim rst as recordset
dim dbs as database

set dbs = currentdb
set rst = dbs.openrecordset("queryname")

variable =rst.field(0)