d1 = DataTables("成绩详细").Find("[学号] = '" & e.NewValue & "'" And "[年级编号] = '41'")
改成
d1 = DataTables("成绩详细").Find("[学号] = '" & e.NewValue & "' And [年级编号] = '41'")