Una famiglia di sistemi di gestione per database relazionali di Microsoft progettati per semplificare l'uso.
Ciao Fabrizio,
devi impostare in testa alla routine il seguente codice:
Option Compare Database
Option Explicit
#If Win64 Then
Private Declare PtrSafe Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long
#Else
Private Declare Function **FindExecutable** Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long
#End If
in funzione della Function che vuoi utilizzare.
Ciao Mimmo