--- oup/rewrite/DataAccess/ConnectionManager.pas 2007/01/22 23:05:45 97 +++ oup/current/DataAccess/ConnectionManager.pas 2007/02/21 03:12:33 109 @@ -149,9 +149,9 @@ begin ext := UpperCase(ExtractFileExt(FileName)); - if ext = 'ODB' then + if ext = '.OLDB' then backend := DB_ADB - else if ext = 'DAT' then + else if ext = '.DAT' then backend := DB_ONI else begin @@ -172,6 +172,7 @@ begin begin FLastID := FConnections[i].ConnectionID; Result := FLastID; + Msg := SM_OK; end else begin @@ -179,7 +180,7 @@ begin FConnections[i].Free; FConnections[i] := nil; SetLength(FConnections, Length(FConnections) - 1); - Msg := SM_UnknownError; + Msg := CreateMsg; end; end;