Bases de Datos - CONSULTA DATOS DE ACCESS A EXCEL CON REFERENCIA

Que tal a todos necesito de su ayuda para hacer funcionar esta rutina de vb en un módulo de excel para crear una función que traiga los datos desde una bd en access por medio de una referencia contenida en una celda de la hoja de calculo.

la rutina es:

Function traer1(ByRef o)
Dim BD As Database
Dim RSnombres As Recordset
Dim o As String
Set BD = OpenDatabase("C:\\Eventual\Sistema Moper\EST SALIDA1.mdb")
Set RSnombres = BD.OpenRecordset("Altas", dbOpenDynaset)
'o = Text1.Text
With RSnombres
'.MoveFirst
.FindFirst "Folio like '*" + o + "*'"
'Text1.Text = .Fields("Folio")
a = .Fields("Nombre del Empleado")
b = .Fields("Apellido Paterno")
c = .Fields("Apellido Materno")
traer1 = (a + " " + b + " " + c)
'traer1 = .Fields("Nombre del Empleado")
End With
End Function

esta rutina se pega en un módulo dentro del editor de vb de excel se guarda y solo se agrega en excel como una formula ej: =traer1(A1) en donde A1 es la celda que contiene el valor a buscar dentro de la bd

espero me puedan ayudar

Saludos.

un saludo

function traer1
with....
....
traer1 = (a + " " + b + " " + c)
...
end with

no funciona... es una ... recursiva infinita !!!