Solve problem with combobox

dsn = "server = 198.0.0.91; uid=sa; pwd=; database=Boxoffice"
Dim myConnection As SqlConnection = New SqlConnection()
myConnection.ConnectionString = dsn
Dim da As SqlDataAdapter = New SqlDataAdapter("Select * from Book", myConnection)


ComboBox2.DataSource = ds.Tables(0)
ComboBox2.DisplayMember = "Date"
ComboBox2.Items.Insert(0, "-- Choose --")

Dim da As SqlDataAdapter = New SqlDataAdapter("Select * from Book", myConnection)

' create a new dataset
Dim ds As DataSet = New DataSet()

' fill dataset
da.Fill(ds, "Book")

' Attach DataSet to ComboBox2

Dim r As DataRow
ComboBox2.Items.Add(" - -Choose - -")
For Each r In ds.Tables(0).Rows
ComboBox2.Items.Add(r(0))
Next

i'm sure there is an easier way but this is the way i have been doing it.

Code:

---

dsn = "server = 198.0.0.91; uid=sa; pwd=; database=Boxoffice"
Dim myConnection As SqlConnection = New SqlConnection()
myConnection.ConnectionString = dsn
Dim da As SqlDataAdapter = New SqlDataAdapter("Select * from Book", myConnection)

' create a new dataset
Dim ds As DataSet = New DataSet()

' fill dataset
da.Fill(ds, "Book")

' Attach DataSet to ComboBox2

Dim r As DataRow
ComboBox2.Items.Add(" - -Choose - -")
dim intCount as integer
For intCount = 0 to (ds.tables(0).rows.count-1)
r = ds.tables(0).rows(intCount)
combobox.items.add(r.item(0) & " " & r.item(1) etc......)
Next

---

like i said though i'm sure there is an easier way!

Nick