我用combobox绑定到学院数据库

下拉列表是样的   ：                            当我运行程序时选择金融学院时，下拉列表为：

      信息工程学院                                           金融学院                  

      金融学院                                                金融学院         

     商学院                                                   商学院

      法学院                                                   法学院

意思也就是信息工程学院被覆盖找不到了，这是怎么回事？？？？？？？？？？？？？？？？？？？？？？？？？？？

Dim sqlConnectionl As SqlClient.SqlConnection
        Dim strConnect As String = "data source=FG-C99768EB468F\SQLEXPRESS;integrated security = sspi;initial catalog=高校田径运动会"
        sqlConnectionl = New System.Data.SqlClient.SqlConnection(strConnect)
        sqlConnectionl.Open()
        Dim cmd As New SqlCommand()
        cmd.Connection = sqlConnectionl
         = CommandType.Text
         = "select zymc from zyb where xymc ='" + combobox1.Text + "'"      从专业表里选择对应学院的专业
        Dim mydataadapter As New SqlDataAdapter
        mydataadapter.SelectCommand = cmd
        Dim myds As New DataSet
        mydataadapter.Fill(myds, "zyb")     填充
           Dim i As Integer
        Dim str As String
        For i = 0 To myds.Tables("zyb").Rows.Count - 1                     循环
            str = myds.Tables("zyb").Rows(i)("zymc").ToString
                  ComboBox2.Items.Add(str)                    将对应学院的专业添加到ComboBox2中
        Next i
        sqlConnectionl.Close()

代码运行时，对应学院的专业会出现两次，
比如在ComboBox1中选择信息工程学院，在ComboBox2就会这样显示

                               信息管理与信息系统

                                电子信息工程

                                信息管理与信息系统

                                电子信息工程

出现两次填充，问题在哪，还请高手指点一下？？？？？？？？？？？？？？？？？

谢谢，我试试

还是不行哦

谢谢各位同仁，专业问题已解决

请各位高手注意"学院"栏，我用的也是combobox1，直接连接到院部数据表（ybb)，这是刚开始运行时的界面


这是点击下拉列表时的界面

这是选择"经济学院"后下拉列表的界面，大家这一看，找不到起初加载时的“国际经济贸易学院"了？？？？？？？？
选择其他院时也是这个状况，除非在重新运行一次，否则就是没有起初运行时的”国际经济贸易学院“，这该怎么办？？？？、、、、、、、、、、、