Private Sub Cmb1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Cmb1.Click
        Dim Inum As Integer
        Daset = New DataSet()
        Daset = GetDataSet("select 院系班级号 from 院系班级表")
        If Daset Is Nothing Then
            MsgBox("系统没有发现有院系班级号!" + Chr(13) + "请到院系班级编辑器添加,谢谢合作!")
        Else            For Inum = 0 To Daset.Tables(0).Rows.Count - 1
                Cmb1.Items.Add(Str(Daset.Tables.Item(0).Columns))
            Next
        End If
    End Sub
这句话发生问题!
  Cmb1.Items.Add(Str(Daset.Tables.Item(0).Columns))
请问怎么获取表中数据添加到Cmb1控件