Found it...
Dim myADOConnection As AdoQueryConnection = DirectCast(Me.DataConnections("Awards"), AdoQueryConnection)
myADOConnection.Command = " SELECT A.AwardID,A.AwardName FROM ...