Seleccion de un campo

amigos ya intente de todo pero no me resulta nada quiero
recuperar un dato de una BD lo hice asi:
Dim dato As Integer
Dim cadena As New String("select cod_unidad from unidad
where nombre_unidad=")
Dim comando As New SqlCommand(cadena + Me.ComboBox1.Text,
conexion)
Dim adapta As SqlDataReader
conexion.Open()
adapta = comando.ExecuteReader()
conexion.Close()
MessageBox.Show("el codigo es " + adapta.GetInt32(0))
pero me sale error en :
adapta = comando.ExecuteReader()
no se porque si alguien me ayuda por fa... solo quiero
recuperar el dato de ese campo que solo sera 1 dato.. :P
gracias... :)