Visual Basic - Combo + TextBox

Hola amigos, estoy tratando de hacer en base a una seleccion de un combo, llenar un textbox pero con un select que incluye un join.
La verdad es que he tratado de solucionarlo de varias formas, pero con esto, no puedo talvéz alguien pueda mirarlo y decirme cual sería una solución.

Desde ya muchas gracias.

'El Adaptador de Tema
daTema = New SqlDataAdapter("SELECT CodTema,DescCodTema From Tema", cn)
'Instancia del DataSet Tema
dsDatos = New DataSet
'Llenar el DataSet Tema
daTema.Fill(dsDatos, "Tema")
'Origen del Combo Tema
Me.cboTema.DataSource = dsDatos.Tables("Tema")
Me.cboTema.DisplayMember = dsDatos.Tables("Tema").Columns("DescCodTema").ToString
Me.cboTema.SelectedIndex = 0
Me.lblTema.Text = dsDatos.Tables("Tema").Rows(Me.cboTema.SelectedIndex)("DescCodTema").ToString

'El Adaptador de Relacion Tema-Ley
' Dim ss As New SqlCommand

Dim sqlcmd As
New SqlCommand("Select
Ley.Tipo, Ley.Anio, Ley.Numero, Ley.Jurisdiccion," & _
"Ley.Descripcion, Ley.Ley FROM Ley INNER JOIN Rel_Tema ON
Ley.Tipo = Rel_Tema.Tipo" & _
"AND Ley.Anio = Rel_Tema.Anio AND Ley.Numero = Rel
_Tema.Numero WHERE Rel_Tema.CodTema = '" & Me.cboTema.SelectedIndex & "'"), cn) @@El primer problema está aqui me dice se esperaba fin de instruccion@@

' Dim ocmd As New SqlCommand(sqlcmd, cn)

Dim darl As New SqlDataAdapter(sqlcmd)@@ y aquí... asumo que es porque
no termino la instruccion anterior@@
Dim ds As New DataSet
darl.Fill(ds, "Ley")

bmbrt = BindingContext(ds, "Ley")

TextBox3.DataBindings.Add("Text", ds, "Ley.Anio")
TextBox4.DataBindings.Add("Text", ds, "Ley.Tipo")
TextBox5.DataBindings.Add("Text", ds, "Ley.Numero")