怎样在combobox中显示数据库中某个表中的某一字段?该怎么解决

怎样在combobox中显示数据库中某个表中的某一字段?
我在网上查了很多资料,大部分的解决方法都差不多.但是,我把代码写进去以后,总是会有一些关键子会报错,我不知道是不是没有声明还是其他什么原因,请高手告诉我到底要怎样在combobox中显示表中的某一字段,最好能在代码旁附上注释.谢谢各位了!
这是我写的代码,不会报错,但是运行后下拉框中只是空白的                
        dim   conn   As   New   SqlConnection
        dim   comm   As   New   SqlCommand
        dim   ds   As   New   DataSet
        dim   da   As   New   SqlDataAdapter
        ds.Clear()
    conn.Open()
    comm.Connection   =   conn
    comm.CommandType   =   CommandType.Text
    comm.CommandText   =   "select   username   from   login "       '登陆表中的用户名字段 '
                da.SelectCommand   =   comm
                da.Fill(ds)
                For   i   =   0   To   ds.Tables.Count   -   1
                        ComboBox1.Items.Add(ds.Tables(i))
                Next   i
                conn.Close()

------解决方案--------------------
这句 ComboBox1.Items.Add(ds.Tables(i))
改为 ComboBox1.Items.Add(ds.Tables(0).Rows(i).Item( "username ").ToString)
表示第0个表第i行的username字段