Visual Basic - Problema Con Una Consulta

Hola, tengo el siguiente problema:
-Tengo Una Base de Datos en Access, dentro de la base tengo diferentes TABLAS y ademas tengo algunas CONSULTAS.
- Mi problema problema se presenta cuando quiere tratar de ejecutar una consulta (todo esto desde VB 6, con ADO.RecordSet Tabla.Open "Select * From Cosulta", ConexionActiva)
- Mi Consulta en Access es la Siguiente:

SELECT D.IdDonacion AS Id, [O].Nombre AS Organización, D.NombreDonacion AS [Nombre Fondo], TD.NombreDonacion AS [Tipo Fondo], D.Postulantes AS Postulantes, D.FechaInicioPostulacion, D.FechaTerminoPostulacion, D.Monto, D.Moneda, D.Comentario
FROM Donaciones AS D, Organizaciones AS O, TipoDonacion AS TD
WHERE TD.IdTipoDonacion=D.IdTipoDonacion And D.IdOrganizacion=[O].IdOrganizacion And D.IdOrganizacion=Fondo;

- Tengo Un Parametro que es Fondo, como hago para poder enviar ese paremetro desde VB6 con ADO.RecordSet Tabla.Open

Espero haberme explicado con claridad, Gracias.-

ado.datasource = "SELECT D.IdDonacion AS Id, [O].Nombre AS Organización, D.NombreDonacion AS [Nombre Fondo], TD.NombreDonacion AS [Tipo Fondo], D.Postulantes AS Postulantes, D.FechaInicioPostulacion, D.FechaTerminoPostulacion, D.Monto, D.Moneda, D.Comentario
FROM Donaciones AS D, Organizaciones AS O, TipoDonacion AS TD
WHERE TD.IdTipoDonacion=D.IdTipoDonacion And D.IdOrganizacion=[O].IdOrganizacion And D.IdOrganizacion=" + "'" + Fondo + "'"
y utilizas el recordset .