Cómo Mostrar Código y Descripción de Cantón en diferentes Cuadros Combinados?

Buenas Tardes 

En el evento Después de actualizar de mi cuadro combinado txt_Dsc_Provincia tengo el código vba para ir haciendo un filtro en cascada, selecciono una provincia y en otro cuadro combinado me muestra los cantones que pertenecen a esa provincia sin ningún problema.

Ahora lo que le agregue nuevo es código de provincia y código de cantón, y lo que quiero es que si dígito en el cuadro combinado el código de la provincia este me muestre  en el cuadro combinado txt_Dsc_Provincia la descripción de la provincia y seguidamente me haga el filtro cascada y me muestre el código y descripción de los cantones asociados a  esa provincia  en sus respectivos cuadros combinados.

Cuadros Combinados:

txt_Provincia (Código Provincia)

txt_Dsc_Provincia (Descripción Provincia)

txt_Canton (Código del cantón)

txt_Dsc_Canton (Descripción Cantón)

Nota: Los nombres inician con txt porque anteriormente eran cuadros de texto.

Tabla:

tblDirecciones

Campos de la Tabla:

COD_PROVINCIA

DESCRIPCION_PROVINCIA

COD_CANTON

DESCRIPCION_CANTON

Este seria el código que encontré y lo adapte a mis necesidades :

Private Sub txt_Dsc_Provincia_AfterUpdate()
Dim strSQL As String
Dim strSQLSF As String
txt_Dsc_Canton = Null
txt_Dsc_Distrito = Null
strSQL = "SELECT DISTINCT tblDirecciones.DESCRIPCION_CANTON FROM tblDirecciones "
strSQL = strSQL & " WHERE tblDirecciones.DESCRIPCION_PROVINCIA = '" & txt_Dsc_Provincia & "'"
strSQL = strSQL & " ORDER BY tblDirecciones.DESCRIPCION_CANTON;"
txt_Dsc_Canton.RowSource = strSQL
strSQLSF = "SELECT * FROM tblDirecciones "
strSQLSF = strSQLSF & " WHERE tblDirecciones.DESCRIPCION_PROVINCIA = '" & txt_Dsc_Provincia & "'"
Me.Requery
End Sub

Agradezco la ayuda que puedan brindar