Mail Merge Access -> Word ( Office 2003)

[rainbowsntoffee]

So, I have a nice little query, and it produces nice pretty results, which are even the ones I wanted for once.
The plan is to plug these into a word mailmerge. Simple theory.
Problem is I can't get the stupid thing to let me set up mail merge with a query recordset rather than a normal table.
So, thats the basic question, how do I do that
Also, if anyones a VBA god/goddess and would like to inform me of a way to make it do the setup thing automatically rather than trying to train my users to use the wizard, that'd be great
Cheers

[puppydogbuddy]

So, I have a nice little query, and it produces nice pretty results, which are even the ones I wanted for once.
The plan is to plug these into a word mailmerge. Simple theory.
Problem is I can't get the stupid thing to let me set up mail merge with a query recordset rather than a normal table.
So, thats the basic question, how do I do that
Also, if anyones a VBA god/goddess and would like to inform me of a way to make it do the setup thing automatically rather than trying to train my users to use the wizard, that'd be great
Cheers

Here is the code for an automated mail merge through Access that demos using a query as the data source. This code is from the tips page of www.aadconsulting.com

Run A Word MailMerge from Access

Copy and paste into a new Access module:

Option Compare Database
Option Explicit
Function MergeIt(stFilePath As String, stQuery As String)
Paramaters:
stFilePath As String - Full path to merge letter template
stQuery As String - SQL String for merge fields data from the CurrentDB
 
Dim stDBName As String
Dim objWord As Word.Document
Dim stSQL As String
 
stSQL = "Select * from " & stQuery & ""
stQuery = "QUERY " & stQuery
 
stDBName = CurrentDb.Name
 
Set objWord = GetObject(stFilePath, "Word.Document")
 
' Make Word visible.
objWord.Application.Visible = True
 
' Set the mail merge data source as the Northwind database
objWord.MailMerge.OpenDataSource _
Name:=stDBName, _
LinkToSource:=True, _
Connection:=stQuery, _
SQLStatement:=stSQL
 
' Execute the mail merge.
objWord.MailMerge.Execute
 
End Function