Giulys

Bom dia Pessoal... Estou tendo dificuldades em configurar o Crystal com o VB6. Depois de muito trabalho, passei os dados para o Relatório via record set Set RsAux2 = banco.OpenRecordset("select top 1 * from alunos where ra = " & RsProcuraAluno!RA) Set RsAux1 = banco.OpenRecordset("select top 1 familias.* from familias inner join alunos on alunos.familia = familias.codigo where alunos.ra = " & RsProcuraAluno!RA) Set RsAux3 = banco.OpenRecordset("Select top 1 cursos.* from cursos, alunos where alunos.curso = cursos.codigo and alunos.ra = " & RsProcuraAluno!RA) Set RsAux4 = banco.OpenRecordset("Select top 1 profissoes.* from profissoes, familias,alunos where profissoes.codigo = familias.cod_prof_pai and alunos.familia = familias.codigo and alunos.ra = " & RsProcuraAluno!RA) Set RsAux5 = banco.OpenRecordset("Select top 1 profissoes.* from profissoes, familias, alunos where profissoes.codigo = familias.cod_prof_mae and alunos.familia = familias.codigo and alunos.ra = " & RsProcuraAluno!RA) Set RsAux6 = banco.OpenRecordset("Select top 1 nacionalidades.* from nacionalidades ,alunos where alunos.nacionalidade = nacionalidades.codigo and alunos.ra = " & RsProcuraAluno!RA) Set RsAux7 = banco.OpenRecordset("Select top 1 profissoes.* from profissoes, alunos where profissoes.codigo = alunos.cod_prof_resp and alunos.ra = " & RsProcuraAluno!RA) Set RsAux8 = banco.OpenRecordset("Select top 1 profissoes.* from profissoes, alunos where profissoes.codigo = alunos.cod_prof_resp_fin and alunos.ra = " & RsProcuraAluno!RA) Porém quando eu gero o relatório... em vez de vir apenas o aluno que eu passei o COdigo (RA) Vem 46000 paginas de relatório com o mesmo alunos. Alguém poderia me ajudar por favor???