用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

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

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