Excuse my English
The problem is:
In my app i have this procedure:
Code:
Public Sub Consultar(cadena, ByVal Camino)
   
    Dim mCadena As String
   On Error GoTo Consultar_Error

    Set cnn = New ADODB.Connection
    
    cnn.ConnectionString = "Provider=MSDASQL.1;" & _
    "Persist Security Info=False;" & _
    "Extended Properties=" & _
    "Driver={Microsoft FoxPro VFP Driver (*.dbf)};" & _
    "UID=;" & _
    "SourceDB= " & Camino & ";" & _
    "SourceType=DBF;"
   
    cnn.Open
     
    
     Set rst = New ADODB.Recordset
     
     rst.CursorLocation = adUseClient
     rst.Open cadena, cnn, adOpenDynamic, _
                    adLockOptimistic, adCmdText

   On Error GoTo 0
   Exit Sub

Consultar_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Consultar of Módulo de clase mTablas"
End Sub
it work Fine in my PC, but when i make the Installer with Inno Setup and install it on other machine something fail.....
the error is as follow:

Error -2147467259 [Microsoft][administrador de controlador ODBC] the controller don't admited this function...

But if i install it with the P&D wizard it work fine, it seems like something wrong is with inno setup, maybe my inexperience...
Here is the scripts i used..
Code:
[Setup]
AppName=Zeus..Etiquetas
AppVerName=Zeus..Etiquetas 1.0.0
AppPublisher=Artex.SA
AppPublisherURL=http://www.ciego.artex.sa
AppSupportURL=http://www.ciego.artex.sa
AppUpdatesURL=http://www.ciego.artex.sa
DefaultDirName={pf}\Zeus..Etiquetas
DefaultGroupName=Zeus..Etiquetas
AllowNoIcons=yes
OutputDir=C:\Documents and Settings\administrator.CIEGO\Escritorio
OutputBaseFilename=Instalador Zeus..Etiquetas
SetupIconFile=S:\Yovanys\Prueba\Codifica\ToolBox\Custom Tool Box\Icons\Bar Code.ico
Compression=lzma
SolidCompression=yes
ChangesAssociations=yes
[Languages]
Name: spanish; MessagesFile: compiler:Languages\Spanish.isl

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: VB5RT; Description: Visual Basic Runtime 5.0; Flags: checkedonce
Name: VB6RT; Description: Visual Basic Runtime 6.0; Flags: checkedonce
Name: DCOM95; Description: DCOM 1.3 for Windows 95; Flags: checkedonce restart; MinVersion: 4.0,0; OnlyBelowVersion: 4.1,0
Name: DCOM98; Description: DCOM 1.3 for Windows 98; Flags: checkedonce; MinVersion: 4.1,0; OnlyBelowVersion: 4.9,0
Name: MDAC; Description: Microsoft Data Access Components; Flags: checkedonce restart; MinVersion: 4.0,4.0; OnlyBelowVersion: 0,5.0

[Files]
Source: S:\Yovanys\Prueba\Zeus..Etiquetas.exe; DestDir: {app}; Flags: ignoreversion
Source: S:\Yovanys\Install\Sheridan\Disk1\Infragistic.exe; DestDir: {app}; Flags: ignoreversion
Source: S:\Yovanys\Prueba\DataBase\*; DestDir: {app}\DataBase; Flags: ignoreversion recursesubdirs createallsubdirs
Source: S:\Yovanys\Prueba\Help\*; DestDir: {app}\Help; Flags: ignoreversion recursesubdirs createallsubdirs
Source: S:\Yovanys\Prueba\Imagenes\*; DestDir: {app}\Imagenes; Flags: ignoreversion recursesubdirs createallsubdirs
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
; START VISUAL BASIC
Source: S:\Yovanys\Prueba\Instalador\Support\STDOLE2.TLB; DestDir: {sys}; Flags: restartreplace uninsneveruninstall sharedfile regtypelib; Tasks: VB5RT VB6RT
Source: S:\Yovanys\Prueba\Instalador\Support\VB6ES.DLL; DestDir: {sys}; Flags: sharedfile
Source: S:\Yovanys\Prueba\Instalador\Support\MSVBVM60.dll; DestDir: {sys}; Flags: restartreplace uninsneveruninstall sharedfile regserver; Tasks: VB6RT
Source: S:\Yovanys\Prueba\Instalador\Support\OleAut32.dll; DestDir: {sys}; Flags: restartreplace uninsneveruninstall sharedfile regserver; Tasks: VB5RT VB6RT
Source: S:\Yovanys\Prueba\Instalador\Support\OlePro32.dll; DestDir: {sys}; Flags: restartreplace uninsneveruninstall sharedfile regserver; Tasks: VB5RT VB6RT
Source: S:\Yovanys\Prueba\Instalador\Support\AsycFilt.dll; DestDir: {sys}; Flags: restartreplace uninsneveruninstall sharedfile; Tasks: VB5RT VB6RT
Source: S:\Yovanys\Prueba\Instalador\Support\ComCat.dll; DestDir: {sys}; Flags: restartreplace uninsneveruninstall sharedfile regserver; Tasks: VB5RT VB6RT
;TERMINA VISUAL BASIC
;COMIENZA AHORA LAS DLL Y OCX
Source: S:\Yovanys\Prueba\Instalador\Support\BlnDialog.ocx; DestDir: {app}; Flags: restartreplace sharedfile regserver
Source: S:\Yovanys\Prueba\Instalador\Support\HookMenu.ocx; DestDir: {sys}; Flags: restartreplace sharedfile regserver
Source: S:\Yovanys\Prueba\Instalador\Support\DATGDES.DLL; DestDir: {sys}; Flags: sharedfile
Source: S:\Yovanys\Prueba\Instalador\Support\STDFTES.DLL; DestDir: {sys}; Flags: sharedfile
Source: S:\Yovanys\Prueba\Instalador\Support\MSSTDFMT.DLL; DestDir: {sys}; Flags: restartreplace sharedfile regserver
Source: S:\Yovanys\Prueba\Instalador\Support\MSDATGRD.OCX; DestDir: {sys}; Flags: restartreplace sharedfile regserver
Source: S:\Yovanys\Prueba\Instalador\Support\ADODCES.DLL; DestDir: {sys}; Flags: sharedfile
Source: S:\Yovanys\Prueba\Instalador\Support\MSADODC.OCX; DestDir: {sys}; Flags: restartreplace sharedfile regserver
Source: S:\Yovanys\Prueba\Instalador\Support\CMDLGES.DLL; DestDir: {sys}; Flags: sharedfile
Source: S:\Yovanys\Prueba\Instalador\Support\COMDLG32.OCX; DestDir: {sys}; Flags: restartreplace sharedfile regserver
Source: S:\Yovanys\Prueba\Instalador\Support\MSCMCES.DLL; DestDir: {sys}; Flags: sharedfile
Source: S:\Yovanys\Prueba\Instalador\Support\MSCOMCTL.OCX; DestDir: {sys}; Flags: restartreplace sharedfile regserver
Source: S:\Yovanys\Prueba\Instalador\Support\SmartMenuXP.ocx; DestDir: {sys}; Flags: restartreplace sharedfile regserver
Source: S:\Yovanys\Prueba\Instalador\Support\ssdw3bo.ocx; DestDir: {sys}; Flags: regserver restartreplace sharedfile
Source: S:\Yovanys\Prueba\Instalador\Support\ssdw3a32.ocx; DestDir: {sys}; Flags: regserver restartreplace sharedfile
Source: S:\Yovanys\Prueba\Instalador\Support\ssdw3ao.ocx; DestDir: {sys}; Flags: regserver restartreplace sharedfile
Source: S:\Yovanys\Prueba\Instalador\Support\ssdw3b32.ocx; DestDir: {sys}; Flags: regserver restartreplace sharedfile
Source: S:\Yovanys\Prueba\Instalador\Support\vbalToolboxBar6.ocx; DestDir: {sys}; Flags: restartreplace sharedfile regserver
Source: S:\Yovanys\Prueba\Instalador\Support\scrrnes.dll; DestDir: {sys}; Flags: sharedfile
Source: S:\Yovanys\Prueba\Instalador\Support\MSVCRT.DLL; DestDir: {sys}; Flags: sharedfile
Source: S:\Yovanys\Prueba\Instalador\Support\scrrun.dll; DestDir: {sys}; Flags: restartreplace sharedfile regserver
Source: S:\Yovanys\Prueba\Instalador\Support\msjro.dll; DestDir: {sys}; Flags: restartreplace sharedfile regserver
Source: C:\Archivos de programa\Archivos comunes\System\ado\msado25.tlb; DestDir: {sys}; Flags: regtypelib sharedfile
Source: S:\Yovanys\Prueba\Instalador\Support\MSBIND.DLL; DestDir: {sys}; Flags: restartreplace sharedfile regserver
Source: S:\Yovanys\Prueba\Instalador\Support\DBRPRES.DLL; DestDir: {sys}; Flags: sharedfile
Source: S:\Yovanys\Prueba\Instalador\Support\MSDBRPTR.DLL; DestDir: {sys}; Flags: restartreplace sharedfile regserver
Source: S:\Yovanys\Prueba\Instalador\Support\MrvBarCd.dll; DestDir: {sys}; Flags: restartreplace sharedfile regserver
Source: S:\Yovanys\Prueba\Instalador\Support\hh.exe; DestDir: {sys}; Flags: sharedfile
Source: S:\Yovanys\Prueba\Instalador\Support\itircl.dll; DestDir: {sys}; Flags: restartreplace sharedfile regserver
Source: S:\Yovanys\Prueba\Instalador\Support\itss.dll; DestDir: {sys}; Flags: restartreplace sharedfile regserver
Source: S:\Yovanys\Prueba\Instalador\Support\hhctrl.ocx; DestDir: {sys}; Flags: restartreplace sharedfile regserver

 ; TERMINAN TODOS LOS ARCHIVOS

; START MDAC
Source: C:\Archivos de programa\Microsoft Visual Studio\COMMON\IDE\IDE98\Redist\mdac_typ.exe; DestDir: {%TEMP}; MinVersion: 4.0,0; OnlyBelowVersion: 4.1,0; Tasks: MDAC; Flags: ignoreversion
Source: C:\Archivos de programa\Microsoft Visual Studio\COMMON\IDE\IDE98\Redist\mdac_typ.exe; DestDir: {tmp}; MinVersion: 4.1,4.0; OnlyBelowVersion: 0,5.0; Tasks: MDAC; Flags: ignoreversion

; END MDAC
[Icons]
Name: {group}\Zeus..Etiquetas; Filename: {app}\Zeus..Etiquetas.exe
Name: {group}\{cm:UninstallProgram,Zeus..Etiquetas}; Filename: {uninstallexe}
Name: {commondesktop}\Zeus..Etiquetas; Filename: {app}\Zeus..Etiquetas.exe; Tasks: desktopicon
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\Zeus..Etiquetas; Filename: {app}\Zeus..Etiquetas.exe; Tasks: quicklaunchicon

[Registry]
Root: HKCR; Subkey: .etq; ValueType: string; ValueName: ; ValueData: Zeus..Etiquetas; Flags: uninsdeletevalue

Root: HKCR; Subkey: Zeus..Etiquetas; ValueType: string; ValueName: ; ValueData: Zeus..Etiquetas; Flags: uninsdeletekey

Root: HKCR; Subkey: Zeus..Etiquetas\DefaultIcon; ValueType: string; ValueName: ; ValueData: {app}\Zeus..Etiquetas.EXE,0

Root: HKCR; Subkey: Zeus..Etiquetas\shell\open\command; ValueType: string; ValueName: ; ValueData: """{app}\Zeus..Etiquetas.EXE"" ""%1"""

[Run]

; START MDAC 2.5- (see also: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/mdacsdk/htm/wphistory_redistributemdac.asp)
Filename: {tmp}\mdac_typ.exe; Parameters: "/Q /C:""setup /QNT"""; WorkingDir: {tmp}; Flags: skipifdoesntexist; Tasks: MDAC; MinVersion: 4.1,4.0; OnlyBelowVersion: 0,5.0
; END MDAC 2.6+
Filename: "{app}\Infragistic.exe"; Description: "{cm:LaunchProgram,Infragistic.exe}"; Flags: shellexec
Filename: {app}\Zeus..Etiquetas.exe; Description: {cm:LaunchProgram,Zeus..Etiquetas}; Flags: nowait postinstall skipifsilent
Please help me..
Thanks....