用ADO怎样获取ACCESS数据数中的用户表的有关属性???

Question

Private Sub Command1_Click()
    Dim con As New Connection
    Dim rs As New Recordset
    Dim s As String
    con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB;Persist Security Info=False"
    Set rs = con.OpenSchema(adSchemaTables)
    While Not rs.EOF
        s = s & rs.Fields("TABLE_NAME") & vbTab
        rs.MoveNext
    Wend
    MsgBox s
End Sub