Se guardi più attentamente il codice vedi che uso Filechooser1.Root
Stesso discorso per le path uso un paio di funzioni che mi restituiscono il percorso adatto per il DB e per l'URL, quella per il DB fa:
Private Function PathForDB(value As String) As String
Dim s As String
s = Replace(value, $sProjectPath, "")
Return s
End