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