In Visual Foxpro, I have the following relation set:

SET RELATION TO depnum INTO Tecdpsc ADDITIVE

I can select a department number and then see all the subs associated with it. That is what I am trying to do in Visual Basic.