Problem with Query - x64VBAServer has stopped working

[kaarigar]

Environment: AutoCAD Map 3D 2011 + Update 2 , Windows 7 Ultimate 64bit, 64bit VBA

The VBA crashes when I attempt the following in order to query from an attached drawing. The error I get is: x64VBAServer has stopped working. The error happens at the code as commented below. Can anyone tell me what should be done to avoid it?

Sub DoQuery()
    Dim pMap As AcadMap
    Set pMap = ThisDrawing.Application.GetInterfaceObject("Autocadmap.application")
    
    Dim pProj As Project
    Set pProj = pMap.Projects.Item(0)
    
    'Dim pDrgSet As DrawingSet
    'Set pDrgSet = pProj.DrawingSet
    Dim pAttDwg As AttachedDrawing
    Set pAttDwg = pProj.DrawingSet.Add("C:\\Temp\\Ceometric.dwg")
    
    Dim pQry As Query
    Set pQry = pProj.CurrQuery
    
    pQry.Clear
    
    'Main Query Branch
    Dim pMainQryBranch As QueryBranch
    Set pMainQryBranch = pQry.QueryBranch
    
    'Query Leaf to hold a location query
    Dim pQryLeaf As QueryLeaf
    
    Set pQryLeaf = pMainQryBranch.Add(kAllBoundary, kOperatorAnd) '<<ERROR HAPPENS HERE
    
    'Define the query
    Debug.Print "Query Define: " & pQry.Define(pMainQryBranch)
    
    'Execute the query
    pQry.Execute
        
    
End Sub

[kaarigar]

Anyone, please?

[NwilsonUT]

I'm experiencing the exact same thing when I'm trying to assign a queryleaf to the root branch. Anyone know how to fix this? It works fine in AutoCAD Map 2011 32 bit but in AutoCAD Map 2011 64 bit, it does not work.