حرفه ای: تغییر دستور SQL یک Query

سلام به دوستان

من یک Form دارم که داخلش یک SubForm وجود داره و این SubForm به یک Query متصله. حالا طبق پارامترهایی که کاربر در Form تنظیم میکنه، میخوام دستورات SQL جدید رو در Query جایگزین کنم. البته مطابق دستور زیر انجام میدم. منتها اگر فرم باز باشه تغییرات اتفاق نمی افته حتی با Requery ولی اگر قبل از اجرای فرم این کار رو انجام بدم Query اصلاح میشه که من دقسقا میخوام در زمان باز بودن فرم این اتفاق بیوفته.

Dim SQLCommand As String
Dim qd As QueryDef
Set qd = CurrentDb.QueryDefs("qryProductListSub")
'ÊÕÍíÍ ÏÓÊæÑÇÊ x81ÑÓæÌæ
SQLCommand = "SELECT tblProduct.tblProductID, tblProduct.tblProductMachineTypeID, tblMachineType.tblMachineTypeTitle, tblProduct.tblProductMachineSeries, tblProduct.tblProductNamePlate, tblProduct.tblProductEndDate, tblProduct.tblProductColor, tblProduct.tblProductChassisNo, tblProduct.tblProductMotorNo, tblProduct.tblProductControllerNo, tblProduct.tblProductNumberOfBattery, tblProduct.tblProductBatteryType, tblProduct.tblProductChargerNo, tblProduct.tblProductBodyNo, tblProduct.tblProductSold, tblMachineType.tblMachineTypeVisibleInList"
SQLCommand = SQLCommand & " FROM tblMachineType INNER JOIN tblProduct ON tblMachineType.tblMachineTypeID = tblProduct.tblProductMachineTypeID"
SQLCommand = SQLCommand & " WHERE (((tblProduct.tblProductSold) = False) And ((tblMachineType.tblMachineTypeVisibleInList) = True))"
SQLCommand = SQLCommand & " ORDER BY tblProduct.tblProductID DESC;"
qd.SQL = SQLCommand
Set qd = Nothing

ممنون میشم اگر کمک کنید