-----Original Message-----
Hi,
this is an excel/access question. i was wondering how to
make excel run a querry in access and put the result of
the querry into a spreadsheet.

thanx a lot
.

Turn DAO reference on:

Sub Ret_Acc_Qry

Dim dbs as database
dim sql as string
dim rst as recordset

fname = "filename of database"

Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
Set dbs = wrkJet.OpenDatabase(fname, True)

sql = "sql statement"

set rst = dbs.openrecordset(sql)
h=0

for each fld in rst.fields
activesheet.[a1].offset(0,h).value = fld.name
next fld

activesheet.range("a2").copyfromrecordset rst

dbs.close
end sub