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