vb连接远程数据库后如何查看其中的表名？

我是引用adox对象得到的，首先在工程-引用里勾选“microsoft ado ext.2.8 for ddl and security”，见下面代码事例（我的一个用户管理的代码，05年开发）

Sub InitInput()
  '初始化输入
  Dim a As String
  Dim ctg As New ADOX.Catalog
  Dim tbl As New ADOX.Table
  ctg.ActiveConnection = "Provider=SQLOLEDB.1;Persist Security Info=True;Initial Catalog=hmcatc;Password=ZdUknMMD;User ID=hmcatc0;Data Source=127.0.0.1"        '就是连接数据库引擎的字符串，其中数据库名、密码、数据库用户名和数据库所在服务器ip替换为你自己的即可
  Combo1.Clear
  For Each tbl In ctg.Tables
    a = tbl.Name  '获取数据表名称
    If tbl.Type = "TABLE" Then Combo1.AddItem a  '将数据表名称显示到combbox控件中以备选择使用，此判断可筛选掉系统用表
  Next
  Set tbl = Nothing
  Set ctg = Nothing
End Sub