何知道Excel中每個sheet的名稱(編號：4049)

請問：
現在我已利用vb中的ConnectString成功地連接Excel，但接下來要如何才能得到Excel(book1.xls)檔中，每一個Sheet的名稱呢？
我所使用的程式如下：
Dim Conn As ADODB.Connection
Dim RS As ADODB.Recordset
　Set Conn = New ADODB.Connection
　Conn.ConnectionString = "DSN=Excel Files;DBQ=c:\My Documents\book1.xls;DefaultDir=c:\My Documents;DriverId=790;MaxBufferSize=2048;PageTimeout=5
　Conn.Close
　Set Conn = Nothing