如何得到SQL库中所有表的表名！！

Question

请问，如何用通过VB程序得到指定的SQL数据库中所有表的表名，急！！

Answer 1

借贵地一用，主要是我没有分了：
各位：
举例来说：我从数据库中读取了10人的姓名和地址，现在我希望根据他们的姓名、地址能够在Word中自动生成信封。前提我已经有了一个信封模板，就是将客户的姓名和地址替换在模板中的相应位置。并且每个信封为一页（如果有是个客户要求生成的文档有十页）。比如格式如下：
 ---------------------------------------------------------------------
  xx省1xx市1xx
         姓名1
      
 ---------------------------------------------------------------------
  xx省2xx市2xx
         姓名2
      
 ---------------------------------------------------------------------  xx省3xx市3xx
         姓名3
      
 ---------------------------------------------------------------------
 ..........

Answer 2

SELECT * FROM SYSOBJECTS WHERE XTYPE = 'U'

Answer 3

请问，如何用通过VB程序得到指定的SQL数据库中所有表的表名，急！！
********************************************************************
    Dim i As Integer
    Dim rs As New ADODB.Recordset
    Set rs = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
    While Not rs.EOF
        Debug.Print rs!TABLE_NAME
        rs.MoveNext
    Wend
    rs.Close
如果省略 Array(Empty, Empty, Empty, "TABLE")，则将获得数据库中所有类型的表名