'Bhuo Agosto de 2002
'Proposito. Crear una consulta permanente en una base de datos
'Este codigo se puede ejecutar desde otra MDB completamente ajena
'a la MDB donde se dese crear la consulta.
'Debe recibir como parametros, el nombre de la consulta y la instruccion SQL
'que deseamos que se convierta en consulta permamente

Option Compare Database
Option Explicit
 Function CreaNuevaConsulta(Name As String, Sql As String)

    Dim dbs As Database
    Dim qdfNuevo As QueryDef
   
    Set dbs = OpenDatabase("C:\Twpac\dsystem.Mdb")

    With dbs
        ' Crea una consulta permanente.
        Set qdfNuevo = .CreateQueryDef(Name, Sql)
        .Close
    End With

End Function