主题：[求助]代码修改

 我想在主表里面 根据所在学院，找出不重复的班级名称，  将这个班级名称写入 学院 表 里面。

  代码如下

    Dim dr1 As DataRow = Tables("学院").Current.DataRow 
    Dim s As String = DataTables("主表").GetComboListString("班级名称","[所在学院] = '英语学院'")
         dr1("班级名称") = s  '写入学院表里面的班级名称列里

   我这个代码  运行起来 出错。 到底在哪儿有问题，特请教。