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

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

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"