jak wyświetlić odpowiedni rekord z dostępu na podstawie innej kolumny w Datagrid w vb6?

Możesz użyć zapytania takiego jak:

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)

Jednak znacznie lepiej byłoby przeprojektować tabelę opłat, aby pasowała do danych zwracanych przez wewnętrzny sql, czyli inny wiersz dotyczący opłat teoretycznych i praktycznych:

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