Precisa localizar um arquivo  ? Que tal uma função em VB para fazer o serviço? 

Faça o seguinte:

1-) Inicie um novo projeto no VB e Insira um módulo no seu projeto na opção Project|Add Module 

2-) Agora vamos ao código.

 

Código do módulo: Declaramos a função encontrada na DLL IMAGEHLP.DLL  presente no diretorio c:\windows\system
Declare Function SearchTreeForFile Lib "IMAGEHLP.DLL" (ByVal lpRootPath As String, _
ByVal lpInputName As String, ByVal lpOutputName As String) As Long

Public Const MAX_PATH = 260

Código do formulário padrão:

Public Function Procura_Arquivo(Caminho As String, NomeArquivo As String) As String

Dim lNullPos As Long
Dim lResultado As Long
Dim sBuffer As String

On Error GoTo Procura_Arquivo_Error

'Aloca espaco para a string sBuffer
sBuffer = Space(MAX_PATH * 2)
'inicia busca do arquivo
 lResultado = SearchTreeForFile(Caminho, NomeArquivo, sBuffer)

' Se houver um caracter Nulo , remove
If lResultado Then
   lNullPos = InStr(sBuffer, vbNullChar)
    If Not lNullPos Then
       sBuffer = Left(sBuffer, lNullPos - 1)
    End If
   'Retorna o nome do arquivo encontrado
    Procura_Arquivo = sBuffer
Else
    'nao achou nada
    Procura_Arquivo = vbNullString
End If

Exit Function
Procura_Arquivo_Error:
    Procura_Arquivo = vbNullString
End Function
A função Procura_Arquivo que utilizará a função API para localizar o arquivo retorna o caminho e nome do arquivo ou Nulo se não achar.

Basta chamar a função informando o drive e  nome do arquivo a localizar. Ex:  Msgbox Procura_Arquivo("c:\" , "Biblio.mdb")....        

Bye...