给Combo1控件赋值

 
 Dim conn As ADODB.Connection
Dim rs As New ADODB.Recordset


Set rs = conn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))
  Debug.Print rs
   
  While Not rs.EOF
  Debug.Print rs!TABLE_NAME
  rs.MoveNext
  Wend


我想把rs的值赋给 Combo1控件，该怎么写呢？

请各位大侠帮忙！！！

VB code

combo1.clear
While Not rs.EOF
  Debug.Print rs!TABLE_NAME
  combo1.additem rs!Table_name &""
  rs.MoveNext
Wend