Ok. buena respuestas.
ya lo he solucionado he utilizado este codigo en el evento change de los estados o departamentos y me funciona muy bien, muchas gracias y espero que ha alguien le sirva
sql = "SELECT * FROM municipios Where iddepa = " & Me.DCDepartamentos.BoundText & " ORDER BY codimuni;"
RsMunicipios.Open sql, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText