急求关于VB.NET中COMBOBOX链接SQL数据库的方法

Public Sub Additem(ByVal Sql As String, ByVal Combox As ComboBox)

Dim Mycmd As New OleDbCommand, Myreader As OleDbDataReader

Combox.Items.Clear()

With Mycmd

.Connection = Con

.CommandType = CommandType.Text

.CommandText = Sql

End With

Try

Myreader = Mycmd.ExecuteReader

Catch ex As Exception

MessageBox.Show(ex.Message, "盘点单", MessageBoxButtons.OK, MessageBoxIcon.Error)

Exit Sub

End Try

While Myreader.Read

Combox.Items.Add(Myreader.GetString(0))

End While

Myreader.Close()

Mycmd.Dispose()

End Sub

sql3="select * from jcfl where area_parent='" & combobox2.text & "' order by area_order"

---