Datos SQL a TextBox Visual Basic

[msnonlygames]

Hola tengo el siguiente codigo que llena el combobox (Esto va en el Load del Form)

Código vb:

txtfecha.Text = Now
        cmbnum.Items.Clear()
        Try
            Dim cmd As New SqlCommand
            Dim dr As SqlDataReader
            With cmd
                .Connection = cn
                .CommandType = CommandType.Text
                .CommandText = "Select NumeroTienda from Tiendas"
                cn.Open()
                dr = .ExecuteReader
                While dr.Read()
                    Me.cmbnum.Items.Add(dr(0))
                End While
                dr.Close()
            End With
            cn.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 

Pero lo que necesito exactamente es que al seleccionar el "Numero de Tienda" del combobox, automaticamente al seleccionarlo, llene el TextBox con su correspondiente "Valor" que vendria estar en la misma tabla.
Aqui unas fotitos:




Espero su ayuda gracias.