Protected Sub Chudo_Yude_Code()
        Try

            Dim Path As String
            Path = Request.MapPath(Request.ApplicationPath) & "\Files\" & fileUploadMy.FileName

            fileUploadMy.PostedFile.SaveAs(Path)

            Dim CnnExcel As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path & ";Extended Properties=Excel 8.0;"

            Dim cnnEx As New OleDb.OleDbConnection(CnnExcel)
            cnnEx.Open()

            Dim ds As New DataSet
            Dim strSQL As String

            strSQL = "select * from [Лист1$]"

            Dim da As New OleDb.OleDbDataAdapter(strSQL, cnnEx)
            ds.Clear()
            da.Fill(ds, "excel")

            Dim tbl As DataTable = ds.Tables("excel")

	    ...
		' Дальше код по закачке в БД
		' и если здесь возникает ошибка
		' то екселевский файл блокируется
		' если ошибки нет, то все нормально
	    ...

        Catch ex As Exception
            Select Case ex.Message
                Case Else
                    Response.Write(ex.Message)
            End Select

        End Try


End Sub