用ADO连接某ACCESS数据库

    Dim MD As New ADODB.Connection
    Dim MT As New ADODB.Recordset
    Dim connstr As String
    connstr = "provider=microsoft.jet.OLEDB.4.0;" & "data source=" & DataName
    MD.Open connstr

想要知道该数据库中含有多少个数据表，并将这些数据表的名称列出，如何实现？谢谢！

Dim testdb As Database
    Dim i As Integer
    Set testdb = OpenDatabase("E:\epDemo.mdb")
    For i = 0 To testdb.TableDefs.Count - 1
        Print testdb.TableDefs(i).Name
    Next

试过可行，代码很简练，谢谢！

代码简单嘛[bc10]