Question

vb.net中怎么把数据库中表的某一列显示在combobox中

我想在combobox1下拉菜单中显示数据库中收费站信息表中的收费站名称列

我输入如下代码后 下拉菜单只显示收费站名称列中的第一行数据 后面都不显示
请问应该怎么改？？？？

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim constr As String = "data source=PC201502281351\SQLEXPRESS;initial catalog=高速公路收费系统;integrated security=true"
Dim con As New SqlConnection(constr)
Dim sqlstr As String = "select 收费站名称 from 收费站信息表"
Dim ds1 As New DataSet()
Dim da As New SqlDataAdapter(sqlstr, con)
da.Fill(ds1, "收费站信息表")
For i = 0 To ds1.Tables.Count - 1
ComboBox1.Items.Add((ds1.Tables(0).Rows(i).Item("收费站名称").ToString))
Next i

Answer 1

For i = 0 To ds1.Tables(0).Rows.Count - 1
ComboBox1.Items.Add((ds1.Tables(0).Rows(i).Item("收费站名称").ToString))
Next i