как да покажа съответен запис от достъп въз основа на друга колона в Datagrid във vb6

Можете да използвате заявка по следния начин:

SELECT subjectcode.Year1, subjectcode.Year2, 
       subjectcode.Subjectcode, subjectcode.Subjectname, 
       subjectcode.Theory_Practical, q.fee
FROM subjectcode 
INNER JOIN (
       SELECT fees.Year1, fees.Year2, "Theory" As FeeType, 
              fees.Theoryfee As Fee
       FROM fees
       UNION ALL
       SELECT fees.Year1, fees.Year2, "Practical" As FeeType, 
              fees.Practicalfee As Fee
       FROM fees)  AS q 
ON (subjectcode.Theory_Practical = q.FeeType) 
   AND (subjectcode.Year2 = q.Year2) 
   AND (subjectcode.Year1 = q.Year1)

Въпреки това би било много по-добре да преработите таблицата си с таксите, за да съответства на данните, върнати от вътрешния sql, тоест различен ред за теоретични и практически такси:

Year1   Year2   FeeType     Fee
2001    2003    Theory      440
2001    2003    Practical   320