亲爱的主席先生，

我已经使用上传数据的Excel工作表在数据库
代码是

Dim oconn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(" /IMEINO/IMEINO.xls") & ";Extended Properties=Excel 8.0")

Try

    Dim ocmd As New OleDbCommand("select * from [Sheet1$]", oconn)

    oconn.Open()

    Dim odr As OleDbDataReader = ocmd.ExecuteReader()

 

    Dim IMEINO As String = ""

    Dim Status As String = ""

    Dim ActivateDeactivate As String = ""

    While odr.Read()

 

        IMEINO = valid(odr, 0)

        Status = valid(odr, 1)

        ActivateDeactivate = valid(odr, 2)

 

        If IMEINO Is DBNull.Value Or IMEINO = "0" Then

            Exit While

        End If

        InsertIMEINOList(IMEINO, Status, ActivateDeactivate)

 



    End While

  

 

    oconn.Close()

其做工精细，但是当我上传在服务器上的项目，然后发生此错误。


{C}
帮我

感谢在前进。