Non so spiegarmi perché non funziona, io ho scritto:

percorso = App.Path & "\db\"

Ma quando l'exe si trova su cd mi da path not found (su hd funziona)

Cmq ho risolto temporaneamente con:
codice:
Dim intCiclo As Integer
For intCiclo = Asc("A") To Asc("Z")
        If GetDriveType(Chr$(intCiclo) & ":\db\") = DRIVE_CDROM Then
            percorso = Chr$(intCiclo) & ":\db\"
            Me.Importa.Enabled = False
            Me.Toolbar1.Buttons(2).Enabled = False
            Exit For
        End If
Next intCiclo

If Len(percorso) < 3 Then percorso = App.Path & "\db\"
E' solo un ripiego, ma almeno così funziona