如何列出Access库中所有的数据表名？

Question

先建立一个数据库连接：
    Set cnn = New ADODB.Connection
    With cnn
         .Provider = "Microsoft.Jet.OLEDB.4.0"
         .Properties("Data Source") = App.Path & "\TmpTable.mdb"
         .Mode = adModeReadWrite
         .Open
    End With
'求一个已经打开的数据库中的所有表的名称
Public Function AllTableName(Cn As ADODB.Connection) As String
    Dim i As Integer
    Dim Rs_ExitTable As New ADODB.Recordset
    Dim Cn_ExitTable As New ADODB.Connection
    Dim strTableName As String
    
    On Error GoTo FindErr:
      
    Set Cn_ExitTable = Cn
    Cn_ExitTable.CursorLocation = adUseClient
    Set Rs_ExitTable = Cn_ExitTable.OpenSchema(adSchemaTables)    For i = 0 To Rs_ExitTable.RecordCount - 1
        If Left(Rs_ExitTable!table_name, 4) <> "MSys" Then
            strTableName = strTableName & "," & Rs_ExitTable!table_name
        End If
        Rs_ExitTable.MoveNext
        If Rs_ExitTable.EOF Then Rs_ExitTable.MoveLast
    Next
    AllTableName = strTableName
    Exit Function
FindErr:
    MsgBox Err.Description
End Function