Label + Datacombo

[davchi]

Como cambiar el nombre de un Label segun cambie un DataCombo

Codigo que cargo el DataCombo:

Código:

Public Sub CargarObraCombo1(DataCombo1 As DataCombo)
Dim rs As New ADODB.Recordset
    rs.Open obrasocial(), cnn, adOpenStatic, adLockOptimistic
    With DataCombo1
       Set .RowSource = rs
       .ListField = "nombre"
       .BoundColumn = "id_obra_social"
    End With
    
End Sub

Public Function obrasocial()
    obrasocial = _
    "SELECT DISTINCT obra_social.id_obra_social, obra_social.nombre " & _
    "FROM contratos INNER JOIN obra_social ON contratos.obra_social_paciente = obra_social.id_obra_social "
End Function

Lo que necesito es que cuando cambio en el data combo algun valor (NOMBRE) me aparezca en el Label1 del form

[davchi]

Ya esta resuelto, dejo el codigo por si alguien lo necesita

Public Sub DataCombo1_Change()
Label1.Caption = DataCombo1.Text
End Sub