Thanks, Marius Krogh
Dim db As Database, cnt As Container, doc As Document, v1 As Variant
Dim prp As DAO.Property, tdf As DAO.QueryDef, rs As DAO.Recordset
Set db = CurrentDb()
'For Each tdf In db.QueryDefs
' Debug.Print tdf.Name
'Next tdf
Set tdf = db.QueryDefs("~sq_ffrmDesign")
For Each prp In tdf.Properties
Debug.Print prp.Name
Next prp
**********air code*********
set newTdf = db.createquerydef(...... actual sql = tdf.sql
Bobby