Oi pessoal tenho uma aplicação com  o visual basic, bases de dados em sql server 7.0 e cristal 7.0!

Para a ligação dos relatorios eu preciso utilizar uma "View" para os relatorios que utilizam mais que uma tabela, porque senão não funcionam, mas não consigo criar uma View onde possa meter o parametro "Union" na consulta!Será que alguem consegue???ou será que dá para abrir o relatorio de outra maneira???Se souberem algum exemplo podem enviar??

Aqui fica o meu exemplo:

 

****Faz parte de um case onde tou a abrir os relatorios
Private function AbreRel()
        NovoRelatorio (RfileName), "WGG_link" 'Este codigo abre o relatorio

        Linkar_BD "SELECT * FROM BaseDA.dbo.TblEmpregados Emp INNER JOIN BaseDA.dbo.TblProcMensal Pr ON Emp.NContr = Pr.Ncontrib, BaseDB.dbo.TblAbonosDescontos, BaseDA.dbo.TblDadosEmpresa"

        PESetFormula PJ, "empresa", "'" & TDados.NEmpresa & "'" & Chr$(0)
        PESetSelectionFormula PJ, "(({@Ano} = " & Data2 & " and {@Date} >= " & Data1 & ") or {@Ano} > " & Data2 & ") and (({@Ano} = " & Data4 & " and {@Data} <= " & Data3 & ") or {@Ano} < " & Data4 & ")And {@NumPasta1} >= " & de & " and {@NumPasta1} <= " & AteDe
        rc = PEOutputToWindow(PJ, "Relatório", 50, 50, 500, 700, 12582912 Or 8388608 Or 16777216 Or 65536 Or 524288 Or 131072, preview.hwnd)
        PESetWindowOptions PJ, wo
        If rc <> 1 Then
            MsgBox Str(PEGetErrorCode(PJ)), , "PEOutputToWindow"
            Unload preview
        Else
            rc = PEStartPrintJob(PJ, True)
            If rc <> 1 Then
                MsgBox Str(PEGetErrorCode(PJ)), , "PEStartPrintJob"
                Unload preview
            End If
        End If
end function
****Esta é a função que vai alterar a VIEW LINK para a minha nova QUERY
Public Function Linkar_BD(ByVal sqlquery As String)
     Conexao_Master.Execute "USE WGG_Link"
     Conexao_Master.Execute "ALTER view link as " & sqlquery
     Conexao_Master.Execute "USE master"
End Function