summaryrefslogtreecommitdiff
path: root/wizards/source/access2base/Database.xba
diff options
context:
space:
mode:
Diffstat (limited to 'wizards/source/access2base/Database.xba')
-rw-r--r--wizards/source/access2base/Database.xba8
1 files changed, 4 insertions, 4 deletions
diff --git a/wizards/source/access2base/Database.xba b/wizards/source/access2base/Database.xba
index 01c56a70e480..4d7513e8ad93 100644
--- a/wizards/source/access2base/Database.xba
+++ b/wizards/source/access2base/Database.xba
@@ -1657,8 +1657,8 @@ Private Function _PropertyGet(ByVal psProperty As String) As Variant
If _ErrorHandler() Then On Local Error Goto Error_Function
Utils._SetCalledSub("Database.get" & psProperty)
-Dim vEMPTY As Variant
- _PropertyGet = vEMPTY
+
+ _PropertyGet = EMPTY
Select Case UCase(psProperty)
Case UCase("Connect")
@@ -1679,11 +1679,11 @@ Exit_Function:
Exit Function
Trace_Error:
TraceError(TRACEFATAL, ERRPROPERTY, Utils._CalledSub(), 0, , psProperty)
- _PropertyGet = vEMPTY
+ _PropertyGet = EMPTY
Goto Exit_Function
Error_Function:
TraceError(TRACEABORT, Err, "Database._PropertyGet", Erl)
- _PropertyGet = vEMPTY
+ _PropertyGet = EMPTY
GoTo Exit_Function
End Function ' _PropertyGet