VB+ADO+excel编程时，怎么得到excel表的工作表名称

VB+ADO+excel编程时，如何得到excel表的工作表名称。
If   cn1.State   =   adStateOpen   Then   cn1.Close
    cn1.ConnectionString   =   "DSN=Excel   Files;DBQ= "   &   DataBaseFile   &   "; "   &   "DriverId=790;FIL=excel   11.0;MaxBufferSize=2048;PageTimeout=5;UID=admin; "
    cn1.Open
    Set   Rs   =   cn1.OpenSchema(adSchemaTables)

请下面的代码，谢谢。

------解决方案--------------------
Rs.Name