معادل این دستور در VB.NET چیه؟

[m_test]

معادل این دستور در VB.NET چیه؟
لطفا راهنمایی کنید.


While not rsRcordset.EOF
"فیلد مورد نظر" ComboBox.AddItem rsRecordset.Fields
rsRecordset.MoveNext
Wend

[delasaee]

Dim dataset As New DataSet
Using connection As New SqlConnection(Database.con2)
Dim adapter As New SqlDataAdapter()
adapter.SelectCommand = New SqlCommand("select * from tbl_menu", connection)
adapter.Fill(dataset)
End Using
ComboBox1.DataSource = dataset.Tables(0)
ComboBox1.DisplayMember = "menu_name"
ComboBox1.ValueMember = "menu_cost"

[m_test]

ضمن تشکر ،از این طریق میدونستم
اگه برات ممکنه از همون طریقی که از حلقه استفاده میکردیم تو VB6 کد بزار لطفاً

[delasaee]

Dim con2 As New SqlConnection(Database.con2)
Dim c2 = "select * from tbl_menu"
Dim cmd2 As New SqlCommand(c2, con2)
con2.Open()
Dim dr2 As SqlDataReader
dr2 = cmd2.ExecuteReader()
While dr2.Read()

ComboBox2.Items.Add(dr2("menu_name"))

End While


con2.Close()
dr2.Close()