Consulta del tipo: Select x From Tabla Where Campo= N variables ??

[TheGhost(Z)]

Estimados:

Veran estoy haciendo un pequeño programilla y me he estancado en esta parque que ahora se los esplico.

Trabajo con tres tablas: Tabla1= Remitentes, Tabla2= Historial, Tabla3= Beneficiarios
Las tablas tienen los Sgtes. Campos:

Tablas: Campos
Remitentes: Nombre
Historial: NombreRemite, NombreBeneficiario
Beneficiarios: Nombre, Telefono

Campos: Contenido

Remite:                  Historial:                              Beneficiario
              NombreRemite: NombreBeneficiario   Nombre: Telefono
Pedro    Juan                     Ismael                        Ismael     4885017               
Juan      Pedro                   Eddy                           Eddy       4256984
Diego    Pedro                   Wiliams                     Israel       4259879
              Juan                     Israel                          Pepe        7755545
              Diego                  Pepe
              Diego                  Wiliams

Al hacer click en mi DataGrid1 debe mostrarse los nombres los que ya envie anteriormente y que estas estan guardas en la tabla historial. De manera que al dar clic en cada item  de los remitentes se muestren de la siguiente manera.
Pedro  ----> Eddy, Wiliams
Juan -------> Israel, Ismael
Diego----->  Pepe, Wiliams

Pues estimados, justamente me quede en la segunta tabla.

Osea hice una Consulta de la Sgte. Manera: Ejemplo con el item Pedro ok.

"Select * from Historial Where NombreRemitente="Pedro""

Conesto obtuve que mi datagrid1 Historial se ponga asi:
Pedro Eddy
Pedro  Wiliams

Pues he cogido a todos los que ya he enviado anteriomente que son: Eddy y Wilimas
Pero ahora debo hacer una consulta de la séte manera:

"Select * from Beneficiairos Where Nombre=Eddy, Wiliams"
PUES HE AQUI MI PROBLEMA (Nombre=Eddy, Wiliams"
Que no se que insertar para que me Selecione "N Beneficiarios"
Digo "N" porque Pedro podria enviar a Cochocientos beneficarios y de ahí mi pregunta

Talves se pregunten el porque no hago una consulta directamente de Remitentes a Beneficiarios y no estar entorpeciendome con la tabla Historial.

Pues veran lo que intento es que no se repitan ningun remitente y ningun beneficiario
Y tampoco se como lo aria directamente ...

Amigos les estare agradecido que me echen una sugerencia con este lio..

Saludos
Pedro Jeri

[TheGhost(Z)]

Código [Seleccionar] Expandir

Dim Cadena As String
Dim Cantidad As Long
Cantidad=RsHistorial.RecordCount
Cadena=""

For i = 1 To Cantidad
Cadena = Cadena & ", '" & RsHistorial.Fields(1) & "' "
RsHistorial.MoveNext
Next i
RsHistorial.Close


"select *   from Beneficiarios  where Nombre IN ("& Cadena & " ) order by Nombre"
Tarea terminada.