ComboBox数据绑定的一个实例

今天在帮大学时的一个老师修改一个管理系统，在combobox数据绑定问题上遇到了一些麻烦，不过经过努力终于搞定。所以决定把这段代码跟大家分享一下。我用的是vb.net2003 。

以下代码实现在combobox中显示数据库中的一张表的一个字段。

Private Sub Dpdcx_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim strSelect As String
        Dim conn As OleDbConnection, myAdapter As OleDbDataAdapter
        strSelect = "SELECT DISTINCT 入库时间 FROM  ××××"
        Dim myDataSet As DataSet = New DataSet
        conn = New OleDbConnection(gLinkString)
        conn.Open()
        myAdapter = New OleDbDataAdapter(strSelect, conn)
        Dim ds As New DataSet
        myAdapter.Fill(ds)
        Dim i As Int16
        For i = 0 To ds.Tables(0).Rows.Count - 1
            ComboBox7.Items.Add(ds.Tables(0).Rows(i).Item("入库时间").ToString)
        Next i
        conn.Close()
    End Sub