Actualizar al cambiar DBCombo

Como hacer para que cuando seleccione un registro del dbcombo se actualicen los controles, con código, no con controles.
Tengo el siguiente código:
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT IdCliente, Nombre, NIF FROM Clientes", cnn, adOpenKeyset, adLockOptimistic
'Cargar un DaataCombo de una tabla
With DataCombo1
Set .DataSource = rst
.DataField = "Nombre"
Set .RowSource = rst
.ListField= "Nombre"
End With
Y quiero que al seleccionar un elemento del DBCombo muestre en los controles Tex1 y Text2 el NIF y IdCliente
Text1.Text = "NIF: " & rst!NIF
Text2.Text = "Direccion: " & rst!IdCliente
¿Cuál sería la solución?
Muchas gracias,