Delfino Valle Paz

Hola buenas tardes, alguien me puede ayudar. tengo dos subformularios en access[/img] y quiero que a partir de un combo se filtren los dos al mismo tiempo. (anexo imagen) este es el código que me funciona para el primer cuadro combinado

Private Sub CbPro_AfterUpdate()
If Me.CbPro = "<TODOS>" Then
Me.Subformulario_ENVIOS_OK.Form.RecordSource = "SELECT * FROM ENVIOS"

Else
Me.Subformulario_ENVIOS_OK.Form.RecordSource = "SELECT * FROM ENVIOS WHERE (ESTATUS_ENVIO)='" & Me.CbPro & "'"
End If
End Sub