conexion base de datos bibliotecas

[gilbertocruz]

Que tal ojala me puedan echar la mano estoy haciendo un pequeño proyecto ABC tengo un proyecto en blanco solo que al arrancar el main y llamar a una clase en esta marca un error
Public Function BD_Ruta() As String

Dim Fs
Dim File
Dim vl_bd As String
Dim Registro As String
Dim cadena As String
Dim ArregloRutas As Variant
Dim Ruta_Archivo As String
Dim Numero_Archivo As Integer


'#############################

Set Fs = CreateObject("Scripting.FileSystemObject")
'If Fs.FileExists(App.Path & "\" & Trim(TempNamePath)) Then
Set File = Fs.opentextfile(App.Path & "\" & Trim(TempNamePath), 1)
lo que esta en rojo es donde me marca el error "No se puede encontrar el proyecto o la bibliteca"
la funcion que esta en la clase es la que asigna la ruta del archio setup.ini
ya reinstale vstudio 6.0 pensando que aki estubiera el error de las librerias y no ¡¡¡ ayuuuddaaa ¡¡¡