如果access数据库
dr = DataTables("教师辅导").SQLFind("学期 = '"& ary(1) & "' And 辅导日期 = #"& e.Form.Controls("辅导日期").Value & "# And 辅导班级 = '"& e.Form.Controls("辅导班级").text &"' And 辅导教师 = '"& e.Form.Controls("辅导教师").text &"'")