Solve problem with combobox

[vwnet]

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

[nswan]

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

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