All you need is
Where[
^] instruction inside query ;)
Dim sID As String = "ValueFromDataGridViewCell"
Dim gpa = Aggregate Grade In CoursesDataSet.tblCourses.AsEnumerable()
Where Grade.Field(Of String)("ID").Contains(sId)
Select Grade.Field(Of Integer)("CreditHours") * dic(Grade.Field(Of String)("Grade"))
Into Sum()