Visual Basic - Problemas con los eventos "URGENTE"

Hemos realizado un ejercicode del libro "Programacion de Base de datos en Visual Basic 6" cuyo autor es "Evangelos Petroutsos" el ejercico en si esta en la pagina 302 en adelante (por si teneis el libro) y e ahí nuestro problema:
Tenemos dos datacombos y según el libro en los dos ponemos la misma instrucción, en si tenemos una caja de texto con e IdCliente y otra para el cargo,en las datascombo en una tenemos la empresa y en la otra el nombre de contacto, lo que queremos es que cuando cambiemos la empresa nos cambie las dos cajas de texto y el datacombo de nombre de contacto.
Y cuando cambiemos el nombre de contacto nos cambie las dos cajas de texto y el datcombo de empresa.
Al poner el codigo "Private Sub nombre_Change()
Adodc1.Recordset.Bookmark = empresa.SelectedItem
End Sub"
Solo poniendo este nos hace bien pero si ademas incorporamos
"Private Sub nombre_Change()
Adodc1.Recordset.Bookmark = nombrecontacto.SelectedItem
End Sub"
Los dos datacombos estan direccionados a la misma Adodc.
Que es tal como lo indica el libro da error. Necesitamos ayuda para comprobar si es posible que funcione este programa. Lo mas seguro que sea problema con el evento.