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

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)