ADOX的问题

下面是一段完整的源程序.
Dim conn As New Connection
Dim cat As New ADOX.Catalog
Dim tl As ADOX.Table
Dim ky As ADOX.Key
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\test.mdb"
cat.ActiveConnection = conn
Set tl = cat.Tables("tt")
For i = 0 To tl.Keys.Count - 1
  If tl.Keys(i).Type = adKeyPrimary Then
     For a = 0 To tl.Keys(i).Columns.Count - 1
       MsgBox tl.Keys(i).Columns(a).Name
     Next
  End If
Next