Access - Informess con codigo

Private Sub btnAbrirInforme_Click()

    Dim strSQL As String

    Dim strFiltro As String

    Dim strNombreInforme As String

    ' Construye la consulta de selección

    strSQL = "SELECT * FROM NombreTabla WHERE Campo = '" & VariableModulo & "'"

    ' Establece el filtro para el informe

    strFiltro = "Campo = '" & VariableModulo & "'"

    ' Nombre del informe (debe ser el nombre del informe que tienes en tu base de datos)

    strNombreInforme = "NombreInforme"

    ' Abre el informe con la consulta de selección y el filtro

    DoCmd.OpenReport strNombreInforme, acViewPreview, , strFiltro

    ' Puedes usar la siguiente línea en su lugar para abrir el informe sin filtro:

    ' DoCmd.OpenReport strNombreInforme, acViewPreview, , strSQL

End Sub