VB如何制作查询数据库Access中表的名称？

如access数据库名称为123，数据库地址在VB文件夹内，数据库中有两个表，为表A和表B，如何通过按钮实现查询，将两个表的名称A和B，显示在VB窗体中的下拉菜单控件中（combobox）。

'添加引用Microsoft ActiveX Data Object 2.8 Library
Private Sub Command1_Click()
   Dim Rs As ADODB.Recordset
   Dim Cn As ADODB.Connection
   Set Cn = New ADODB.Connection
   '假设123.mdb在C:\下，根据你的文件位置修改以下语句
   Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\123.mdb;Persist Security Info=False"
   Set Rs = Cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, Empty))
   Do Until Rs.EOF
        If Left(Rs!table_name, 4) <> "MSys" Then '以MSys开头的是ACCESS内部表
            Combo1.AddItem Rs!table_name
        End If
        Rs.MoveNext
   Loop
   Rs.Close
   Set Rs = Nothing
   Cn.Close
   Set Cn = Nothing
End Sub

dim conn as new adodb.connection'数据库链接对象

dim rs as new adodb.recordset'数据记录集

datapath ="你的access数据库地址"

  connstring = "provider=microsoft.jet.oledb.4.0;data source=" & datapath & ";persist security info=false"'数据库链接字符串

conn.open connstring '打开数据库

 rs.open "select * from 数据表名 where 查询条件, conn, 1, 3'查询

'-------------