Intanto Buona Pasqua a Tutti...
Allora...
Nel Form load uso questo codice...

Private Sub Form_Load()
windir = Environ$("WINDIR") & "\SYSTEM32\"
If Not Dir(windir & "vb6.dll") = "vb6.dll" Then
MsgBox "Questa copia non è autorizzata", vbCritical, "ATTENZIONE!"
' chiama seriale
Protez = Shell(App.Path & "\Seriale.exe", 1)
End
Else
LeggiFile
''''stringa di connessione al db..
StrConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & Percorso & "';Persist Security Info=False"
End If

End Sub

Non riesco a capire come mai..se lo apro da visual basic..funziona perfettamente..Quando invece apro il programma compilato .exe a volte funziona a volte no...

Praticamente quando si blocca...succede questo..
Mi appare l' msgbox.. e dopo un istante si blocca il programma ..mi dice..'Nome Origine Dati non Trovato e driver predefinito non specificato'.

Non capisco cosa sbaglio..perchè la stringa di connessione non dovrebbe leggerla..se mi appare l'msgbox.. E poi non capisco perchè 6 volte su 10 funziona..ma ke succede le altre 4?!!..

Qualcuno vede errori..che io non vedo?

PS. Non so se mi sono spiegata bene..