Datenbankpath aus der Registry lesen!

[m-werk]

Hi Leute, ich habe in meinem Setup den Path der Datenbank (man soll die Datenbank speichern können, wo man will) in die Registry geschrieben, und nun kann das Programm die Datenbank nicht mehr finden,

Ich hab jetzt folgenden Code drin:

Code:

procedure TDM.DataModuleCreate(Sender: TObject); 
var REG:TRegistry; 
    a:string; 
begin 
REG:=Tregistry.create; 
  try 
    REG.RootKey := HKEY_CURRENT_USER; 
    if REG.OpenKey('Software\Arius\SettingsDB', True) then 
      begin 
        a:=REG.ReadString('DBPath'); 
      end; 
  finally 
    REG.CloseKey; 
    REG.Free; 
    inherited; 
  end; 

  ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=' + 
                          REG.ReadString('DBPath') + 'Kundendaten.mdb;Mode=ReadWrite;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password=qx99;'+ 
                         'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;' + 
                         'Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don''t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False'; 
  ADOConnection1.Connected := TRUE; 
  DM.ADOSHaupt.Open; DM.ADOSKinder.Open; DM.ADOSGeschaeft.Open; DM.ADOSFinanzierung.Open; 
  DM.ADOSHaushalt.Open; DM.ADOSAnlageprofiel.Open; DM.ADOSEmpfehlung.Open; DM.ADODataSet1.Open; 
  DM.ADODataSet2.Open; 
end;

In der Registry ist aber alles richtig drinn, das hab ich schon kontrolliert

Wenn ich jetzt das Programm installiere, und ich die Datenbank auf 'E:\Datenbank\Kundenverwaltung.mdb' speichere und dann das Programm Starte, kommt folgende Meldung:

Datei 'C:\Dokumente und Einstellungen\Steinkellner\Desktop\Kundendaten.mdb ' nicht gefunden.

Warum fragt mich jetzt das Programm danach?
Ich hab doch bei der connectionstring 'REG.Readstring('DBPath') eingegeben.
PS. Ich arbeite auf Windows XP, aber dass ist sicherlich nicht der grund!