No me exporta los datos de excel a sql

[astrow25]

Hola,

Tengo una pagina, para exportar los datos de un excel a sql server.

He estado comprobando y el error salta en oCnn.Open(), sin embargo si lo hago con el depurador de Visual Studio, pasa los datos correctamente

El codigo es el siguiente, por si me podeis hechar una mano

Código ASP:

Protected Sub cmdSubir_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles cmdSubir.Click
     Dim sExt As String = String.Empty
     Dim sName As String = String.Empty
     Dim excelconex As String = ""
     Dim arch As String
     Dim sWorkbook As String
     Dim oCnn As New OleDbConnection
     Dim oCmd As New OleDbCommand
     Dim oDr As OleDbDataReader
     'COMPRUEBO SI SE HA SUBIDO ALGUN ARCHIVO
      If uploadFile.HasFile Then
      'RECOGO EL NOMBRE DEL ARCHIVO
       sName = uploadFile.FileName
       sExt = Path.GetExtension(sName)
       'GUARDO EL ARCHIVO EN LA CARPETA TEMP
       uploadFile.SaveAs(MapPath("tmp/" & sName))
      Select Case sExt
             Case Is = ".xls"
                 excelconex = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                       "Data Source=" & Server.MapPath("tmp/" & sName) & ";" & _
                                             "Extended Properties=Excel 8.0;"
              Case Is = ".xlsx"
                  excelconex = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                              "Data Source=" & Server.MapPath("tmp/" & sName) & ";" & _
                                              "Extended Properties=Excel 12.0;"
              End Select
              sWorkbook = "[Hoja1$]"
               'OBTENGO LOS DATOS NECESARIOS DEL ARCHIVO EXCEL
               oCnn = New OleDbConnection
               oCnn.ConnectionString = excelconex
               oCmd = New OleDbCommand("SELECT F2,F3,F4,F5,F6,F7,F8 FROM " & sWorkbook & " where F7 is not null", oCnn)
              'aqui es donde casca
               oCnn.Open()[/B][/I]
               oDr = oCmd.ExecuteReader
               If oDr.HasRows Then
                     while odr.read()
                         'Introduzco los datos en la tabla mediante proc.almacenado
                     end while
               End if
    End if
End sub