summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--wizards/source/access2base/Application.xba2
1 files changed, 1 insertions, 1 deletions
diff --git a/wizards/source/access2base/Application.xba b/wizards/source/access2base/Application.xba
index 783fca73541e..3383e7bd009a 100644
--- a/wizards/source/access2base/Application.xba
+++ b/wizards/source/access2base/Application.xba
@@ -1147,7 +1147,7 @@ Const cstThisSub = "OpenDatabase"
Set oBaseContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
sDbNames() = oBaseContext.getElementNames()
bFound = False
- For i = 0 To UBound(sDbNames() ' Enumerate registered databases and check non case-sensitive equality
+ For i = 0 To UBound(sDbNames()) ' Enumerate registered databases and check non case-sensitive equality
If UCase(sDbNames(i)) = UCase(pvDatabaseURL) Then
sDatabaseURL = sDbNames(i)
Set oBaseSource = oBaseContext.getByName(sDatabaseURL)