[AccessD] Memory Leak in DAO?

Does anyone see why the sub procedure below would result in an out of memory
condition when run about 100 times in a loop?


    Public Sub ExecuteActionQuery(strQueryName As String)

    Dim db As Database
    Dim qdf As QueryDef

    Set db = CurrentDb
    Set qdf = db.QueryDefs(strQueryName)
    qdf.Execute

    Set qdf = Nothing
    Set db = Nothing
    
    Exit Sub



TIA

Myke