ComboBox sin bindeo a Data set

[Highlander]

Hola estoy creando un ComboBox sin bindearlo a un dataset, el asunto es que me funciona pero me falta poder mostrar un cierto valor y que seleccione otro, me explico:

ID NOMBRE
1 JUAN
2 PEDRO

Entonces nesecito que el combobox muestre los nombres pero cuando sea seleccionado envie el ID.

El codigo que tengo es:

Código:

   mSqlServerCe.Conectar()

        Dim cmd As SqlCeCommand
        Dim sql As String = "SELECT CodigoTamaño, Tamaño FROM PacienteTamaño"

        cmd = New SqlCeCommand(sql, conexionSql)

        Dim rdr As SqlCeDataReader = cmd.ExecuteReader()

        
        Try
            ' Iteración resultados
            '
            While rdr.Read()

                Dim val1 As Integer = rdr.GetInt32(0)
                Dim val2 As String = rdr.GetString(1)

                ComboBox2.Items.Add(val2)
               

            End While
        Finally

            mSqlServerCe.Desconectar()
        End Try

Cualquier sugerencia se agradece, saludos.