How do I create a new query in VBA and save it to an Access Db?

[geoaerocfi]

I am trying to replace an exitsting query in a MS-Access 2007 database with
one that I've created in VBA code. I already know how to delete or rename
existing queries, but can't find any functions that create a new query.

 

[Chris O'C via AccessMonster.com]

Dim qdf As QueryDef
Dim db As Database

Set db = CurrentDb
Set qdf = db.CreateQueryDef("qryname", _
"select firstname, lastname from employees " _
& "where lastname = 'jones'")

Chris
Microsoft MVP