como puedo hacer para que un combobox dependa de otro?????

[Lalybs]

Buenas tardes, espero que hayas podido solucionar tu problema porq me encuentro en la misma situación.
tengo dos tablas a las llamo t1: Puestos; t2: cajas y lo que necesito es filtrar desde un combo2 las cajas de un puesto determinado y seleccionado del combo1.. para lo cual eh utilizado el siguiente código..

Para cargar los combos:

Dim ry As New ADODB.Recordset
ry.Open "Select * From puestos", con, adOpenKeyset, adLockOptimistic, adCmdText
Do Until ry.EOF()
Combo1.AddItem ry!denominacion
ry.MoveNext
Loop
ry.Close
Dim rs As New ADODB.Recordset

rs.Open "select * from cajas ", con, adOpenKeyset, adLockOptimistic, adCmdText
Do Until rs.EOF()
Combo2.AddItem rs!denominacion
rs.MoveNext
Loop
y para filtrar

sql = "SELECT puestos.denominacion, cajas.denominacion FROM cajas INNER JOIN puestos ON cajas.id= puestos.id Where puestos.id = " & Combo1.Text
ra.Open sql, con, adOpenKeyset, adLockOptimistic
If Not (ra.EOF And ra.BOF) Then
Combo2 = ra!denominacion

Combo2.SetFocus
ra.Update
ra.Close
End If
pero no me funciona, si alguien puede ayudarme por favor... desde ya muchas gracias! Saludos