Access2Base - Add Location property to Database object (2)

Addition of Location property in OpenConnection sub

Change-Id: I58c278b3ff60290709df2e00ee48a05010813f4d

wizards/source/access2base/Application.xba

@@ -1222,6 +1222,7 @@ Const cstThisSub = "OpenConnection"
 				Set .Document = oComponent
 				.Title = oComponent.Title
 				.URL = vDocContainer.URL
+				.Location = oComponent.Location
 				ReDim vDbContainers(0 To 0)
 				Set vDbContainers(0) = vDbContainer
 				TraceLog(TRACEANY, .Version, False)
@@ -1339,6 +1340,7 @@ Const cstThisSub = "OpenDatabase"
 		If UCase(Right(sDatabaseURL, 4)) <> ".ODB" Then Goto Trace_Error
 		If Not FileExists(sDatabaseURL) Then Goto Trace_Error
 		Set oBaseSource = oBaseContext.getByName(sDatabaseURL)
+		odbDatabase.Location = sDatabaseURL
 	End If
 
 	Set odbDatabase.Connection = oBaseSource.getConnection(pvUser, pvPassword)