怎样把SQL数据库中的数据表名加入 Datalist控件中,该怎么解决

怎样把SQL数据库中的数据表名加入 Datalist控件中
VB6中想用Datalist或Treeview和Datagrid控件查询修改SQL数据库中的数据表内容，但是不知道怎样把数据库中的数据表名自动加入Datalist控件中（想查询多个不知情的数据库）请高手指教，谢谢

如下图：



------解决方案--------------------
'┏〓〓〓〓〓〓〓〓〓 GetMdbTableSz,start 〓〓〓〓〓〓〓〓〓┓
'［简介］：
'获取mdb数据库中所有表对象的名称
Function GetMdbTableSz(Optional GetType As String = "TABLE")
   'VB源码，帮你写函数，帮你写代码，帮你写模块，帮你设计软件
   '--需要什么函数或功能，可以联系我。
   '版权所有，请保留作者信息.QQ：2605961812
   '如需商业用途请联系作者
      On Error GoTo Err2
      Dim TableSet As New ADODB.Recordset
      Dim Sz
      ReDim Sz(0)
      If StrConv(GetType, vbLowerCase) = "all" Then
         Set TableSet = Conn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty))
      Else
         Set TableSet = Conn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, GetType))
      End If
      Dim I As Integer
         '类型：[" & TableSet("table_type") & "] " & TableSet("table_name")
         While Not TableSet.EOF
         ReDim Preserve Sz(I)
         If TableSet("table_name") <> "" Then
         Sz(I) = TableSet("table_name")
         I = I + 1
         End If
              TableSet.MoveNext
          Wend
          GetMdbTableSz = Sz
         Exit Function
   Err2:
End Function
'┗〓〓〓〓〓〓〓〓〓  GetMdbTableSz,end  〓〓〓〓〓〓〓〓〓┛