SoloCodigo

boton en visual basic que ejecuta la consulta con los valores
Private Sub cmdbus_fil_Click()
Dim filt2 As String
    filt1 = Me.cbofilt
    filt2 = Me.txtfil.text
    DatEnv.filtro_tematico filt1, filt2
    encGrid2 Me.Name, Me.Grid11, DatEnv.rsfiltro_tematico, 4
End Sub

consulta en access
PARAMETERS filtro1 Text, filtro2 Text;
SELECT cat_tematic.id_codigo, cat_tematic.titulo, cat_tematic.formato, cat_tematic.sinopsis, cat_tematic.durac_min
FROM cat_tematic
WHERE (((cat_tematic.titulo) Like "*" & [filtro2] & "*") AND ((cat_tematic.existencias)>0) AND ((cat_tematic.audiencia)=[filtro1]))
WITH OWNERACCESS OPTION;