請問如何用vb取得excel內的sheet數目與名稱(編號：6003)

各位前輩
我用vb寫了一個程式,以excel為資料庫
　用data控制項來查閱excel內的資料
　我的問題是我想用comboBOX來切換不同的SHEET
　我如何能動態取得某個EXCEL的SHEET數目與名稱
　當成ComboBOX的item.?
　　　　　謝謝大家鼎力相助