I'm going to guess this is the area that is failing:
Code:
'*********** NEW Treeview *************
'Dim otved As clsTreeViewEnhDefinition
Set oTV = Me!axProducts.Object
Set dbs = CurrentDb()
Set rstProdType = dbs.OpenRecordset("Select * From qTreeRecordset", dbOpenDynaset) 'MB: replaced qSupplierProducts with qTreeRecordset
'Set rstProdType = dbs.OpenRecordset("Select * From qSupplierProducts", dbOpenDynaset) 'MB: replaced qSupplierProducts with qTreeRecordset
FillTree
Does this form have a recordset and is there a firld in this recordset named axProducts and is there anything in that field?