COMO COLOCAR DOIS CAMPOS DISTINCT NA CLAUSULA SQL?

XYKOVIEIRA 14/10/2011 00:39:39
#386664

Option Explicit
Dim Banco As Database
Dim Tabela As Recordset

Private Sub Form_Load()
Set Banco = OpenDatabase([Ô]C:\Filmes.mdb[Ô])
Set Tabela = Banco.OpenRecordset([Ô]Select Distinct Atorprincipal From Cadastro[Ô])
Tabela.MoveFirst
While Not Tabela.EOF
List1.AddItem Tabela!Atorprincipal
Tabela.MoveNext
Wend
Label1.Caption = [Ô]Total: [Ô] & Tabela.RecordCount
End Sub

[ô]Prezados. Fiz o pequeno project acima, bem simples, para exemplificar o que estou precisando que seja exibido numa listbox, no evento
[ô]<load> do form. Plataforma VB6, com banco mdb.
[ô]Com o código acima, o form é carregado, exibindo na listbox todos os atores cadastrados como <atorprincipal>. A cláusula <Distinct> é para
[ô]evitar a duplicidade de nomes, já que o mesmo ator pode figurar em mais de um filme.
[ô]Preciso incluir na cláusula SQL também um campo chamado <Atorcoadjuvante>, onde a listbox deverá exibir todos os nomes contidos nos
[ô]campos <atorprincipal> e <atorcoadjuvante>, sem repetições (a listbox está com a propriedade <Sorted=True>, para a exibição dos dados por
[ô]ordem de nome. Como devo fazer essa junção?
[ô]Agradeço imensamente, se alguém puder mandar uma dica.
[ô]Abraços. Chico.