View Single Post
  #4 (permalink)  
Old June 20th, 2003, 04:14 PM
cluderay cluderay is offline
Registered User
 
Join Date: Jun 2003
Location: , , .
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
Default

This works

Dim dan As Variant
dan = CurrentDb.QueryDefs("Query1").OpenRecordset.Fields ("Sum_of_What_ever")

Test is an Access query

OR

dan = CurrentDb.openrecordset("SQL").OpenRecordset.Field s("Sum_of_What_ever")