كيف جعل الجداول تظهر في ال combo

Set cn = New ADODB.Connection
Dim rs As ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & App.Path & "db1.mdb"
cn.Open
Set rs = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
Do Until rs.EOF = True
     Combo1.AddItem (rs!Table_NAME)
  rs.MoveNext
Loop

وشكرا

مشكور يا اخ programmer

اشكرك علي سرعة ردك و فعلا هذا الكود اللي انا ادوره من زمان وما قصرت اخوي