I thank you all for assistance provided, my final code is as below and works OK -
Private Sub Frame256_AfterUpdate()
Dim SQLText, WClause
SQLText = "SELECT DISTINCT [ProductID],[Product], [Manufacturer],[ProdComp]FROM T_Product Where ProdComp="
Select Case Me![Frame256]
Case 1...