Dim Db As DAO.Database, Qd As DAO.QueryDef
Set Db = DBEngine.Workspaces(0).OpenDatabase("C:\BaseDatos.mdb")
Set Qd = New DAO.QueryDef
Qd.Name = "NombreNuevaConsulta"
Qd.SQL = "SELECT * FROM..."
Db.QueryDefs.Append Qd
Set Qd = Nothing
Set Db = Nothing