sql ="SELECT tVendor.sVendorName," & _ 
" tVendorType.sVendorTypeDesc,tVendor.sVendorImg,tVendor.sVendorWebsite,tProductType.lID" & _
" FROM tVendor INNER JOIN tVendorType ON tVendor.lid = tVendorType.lVendorID" & _
" INNER JOIN tProductType ON tVendorType.lProductTypeID = tProductType.lID" & _
" WHERE tProductType.lID = " & num