Access - recargar subformulario pasandole 1 clausula where

Hola
Me gustaría saber si es posible cargar un subformulario pasandole una consulta where. Me explico:
Tengo un formulario principal llamado 'Buscar' y este tiene un subformulario llamado 'Programas' (relacionado con una clave), un combo 'selectfabricante' y un textbox 'usuario'.
Al abrir el formulario el subformulario esta cargado con todos los programas de ese usuario.
Al seleccionar un fabricante, me gustaria que el subformulaario se recargase con los programas q son de ese fabricante, pasandole por cordigo una where.
He conseguido hacerlo abriendo el formulario en una pagina nueva, pero ¿hay alguna forma de q se cargue en el subformulario q ya se mostraba?
Este es el codigo que he usado. Gracias de antemano

Private Sub SelectFabricante_Click()

Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Programas"
If SelectFabricante.Value = "Microsoft" Then
stLinkCriteria = "blablabla'"
DoCmd.OpenForm stDocName, acFormDS, , stLinkCriteria
elseif SelectFabricante.Value = "Adobe" Then
stLinkCriteria = "blebleble"
DoCmd.OpenForm stDocName, acFormDS, , stLinkCriteria
end if

end sub

Hola,

Hay dos opciones para hacer eso:

1. Cambiar el RecordSource del subformulario:

strSQL = "SELECT blablabla FROM loquesea WHERE elnuevocriterio"
Me!ctlSubForm.Form.RecordSource = strSQL

2. Aplicar un filtro al subformulario

strCriteria = "campo=" & valor
Me!ctlSubForm.Form.FilterOn = False ' quitamos por si hubiera
Me!ctlSubForm.Form.Filter = strCriteria ' definimos
Me!ctlSubForm.Form.FilterOn = True ' aplicamos

Un saludo

Xavi
http://www.llodax.com
http://www.mvp-access.es

Muchas gracias. Funciono perfecto era lo que buscaba.