Obtener el campo ID de un registro publicado en un ComboBox

[Santo2010]

Lo recordé y lo pongo por si acaso alguien lo necesita
Private Sub Form_Load()
Set coneccion = New ADODB.Connection
coneccion.Open "Polizas-GADM-CG"
Set rsc = New ADODB.Recordset
rsc.Open "SELECT Id_Contratista, Nombre, Apellido FROM Contratista", coneccion
Do Until rsc.EOF
Me.Cmb_Contratista.AddItem Trim(rsc.Fields(1)) & " " & Trim(rsc.Fields(2))
Me.Cmb_Contratista.ItemData(Me.Cmb_Contratista.New Index) = rsc.Fields(0)
rsc.MoveNext
Loop
rsc.Close
End Sub

Private Sub Cmb_Contratista_Click()
VarContratista = Me.Cmb_Contratista.ItemData(Me.Cmb_Contratista.Lis tIndex)
End Sub
Espero que a alguien le sirva