Så här fyller jag en combobox med alla CDTitle från tabellen Disc.

ComboBox1.DataSource = objDS.Tables("Disc")
ComboBox1.DisplayMember = "CDTitle"

Men hur lägger jag till CDReleaseYear i Comboboxen så det ser ut så här
' CDTitle - CDReleaseYear

Du kan ju göra det i sql frågan:

SELECT CDTitle & ' - ' & CDReleaseYear AS Caption
FROM Disc
oRDER BY CDTitle

Ok förstår lite men kan inte få rätt på det så här ser min kod ut

<code>
Dim sConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=D:\Documents and Settings\Anders Bengtsson\Skrivbord\Visual Basic Exempel\Day11\CD2002.mdb;Persist Security Info=False"

Dim sSQL As String
sSQL = "SELECT * from Artist"


Dim objConn As New OleDb.OleDbConnection(sConnection)
Dim objDataAdapter As New OleDb.OleDbDataAdapter(sSQL, objConn)
Dim objDS As New DataSet("CDs")
Dim objDV As DataView

objConn.Open()
objDataAdapter.Fill(objDS, "Artist")


objConn.Close()

Dim objTable = objDS.Tables("Artist")
objDV = objTable.DefaultView

'lägger in ArtistID och ArtistLastName i två olika textboxar och en combobox
'-----------------------------------------------
TextBox1.DataBindings.Add("Text", objDV, "ArtistID")
TextBox2.DataBindings.Add("Text", objDV, "ArtistLastName")
ComboBox2.DataBindings.Add("text", objDV, "ArtistName")
'-----------------------------------------------

' Detta fyller en combobox med kod
'-----------------------------------------------
ComboBox1.DataSource = objDS.Tables("Artist")
ComboBox1.DisplayMember = "ArtistName"
'-----------------------------------------------
</code>

Hur ska jag skriva i detta exempel för att få en combobox3 med CDTitle och CDReleaseYear från Disc.
Hur får jag in två sql satser och så vidare.

Det här borde väl funka (har inte testat och är ingen klippa på VB.Net) :
Lägg in detta innan objConn.Close()

sSQL="SELECT CDTitle & ' - ' & CDReleaseYear AS Caption FROM Disc"
objDataAdapter As New OleDb.OleDbDataAdapter(sSQL, objConn)
objDataAdapter.Fill(objDS, "CDinfo")

För att fylla Combox3 borde det vara:
ComboBox3.DataSource = objDS.Tables("CDinfo")
ComboBox3.DisplayMember = "Caption"