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