combobox控件绑定ACCESS数据库

Dim dts As DataSet
dts = QueryData()  '查询方法，其返回值为DataSet
        For i As Integer = 0 To dts.Tables(0).Rows.Count - 1
            comboBox.Items.Add(dtsNation.Tables(0).Rows(i)(1))    'comboBox为ComboBox控件名
        Next

        If comboBox.Items.Count <> 0 Then
            comboBox.SelectedIndex = 0
        End If


大概是这样。。。记不太清