combobox控件的问题???

Question

Dim oExcel As Excel.Application
Dim oBook As Excel.Workbook
Dim oSheet As Excel.Sheets
Dim  i As Long    Set oExcel = CreateObject("Excel.Application")
    Set oBook = oExcel.Workbooks.Open("d:\data.xls")
    Set oSheet = oBook.Worksheets(1)
    i=0
    while trim(oSheet.Range("A" & CLng(i))))<>""
         cmbdata.additem trim(oSheet.Range("A" & CLng(i))))
    wend