When I call AddTablesToAccessListbox I get Run-time error 3343 Unrecognized database format '' [login to view URL] is the path and file of an accdb (Access 2007) file. See attached. Sub AddTablesToAccessListbox() Dim icount As Integer Dim colTables As Collection Set colTables = New Collection Set colTables = NonSystemTables([login to view URL]) If colTables Is Nothing Then Set colTables = Nothing Exit Sub End If [login to view URL] For icount = 1 To [login to view URL] [login to view URL] colTables(icount) Next icount Set colTables = Nothing If [login to view URL] > 0 Then [login to view URL] = 0 End Sub Function NonSystemTables(dbPath As String) As Collection Dim sPassword As String Dim td As [login to view URL] Dim db As [login to view URL] Dim colTables As Collection Dim sFormatPassword As String sPassword = Trim$([login to view URL]) If FileExists(dbPath) = True Then If sPassword <> "" Then sFormatPassword = "MS ACCESS;PWD=" + sPassword Set db = Workspaces(0).OpenDatabase(dbPath, False, False, sFormatPassword) Else Set db = Workspaces(0).OpenDatabase(dbPath) End If Set colTables = New Collection For Each td In [login to view URL] If [login to view URL] >= 0 And [login to view URL] <> dbHiddenObject And [login to view URL] <> 2 Then [login to view URL] [login to view URL] End If Next [login to view URL] Set NonSystemTables = colTables End If End Function