ASP.NET

Dim conexcel As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("upload/" & FileUpload1.FileName) & "; Extended Properties=Excel 8.0")
Dim cmd As New OleDbCommand("select * from [Sheet1$]", conexcel)


Try
    If ConnectionState.Open Then
        conexcel.Close()
    End If
    conexcel.Open()
    Dim dr As OleDbDataReader
    dr = cmd.ExecuteReader()

    Dim act, cnt, ds, cf, co, distt, dtype As String

    act = ddl_Activity.SelectedItem.Text.ToString()
    cnt = ddl_Center.SelectedItem.Text.ToString()
    ds = ddl_DataSource.SelectedItem.Text.ToString()
    distt = ddl_Distt.SelectedItem.Text.ToString()
    bcode = UCase(bcode) & "/" & distt & "/" & act & "/" & bno.ToString()
    dtype = ddl_DataType.SelectedItem.Text.ToString()

    Try
        Dim name, cnt1, cnt2 As String
        name = ""
        cnt1 = ""
        cnt2 = ""
        cf = ""
        co = ""

        Dim m, p As Int64
        m = 1
        While (dr.Read())
            name = Trim(dr(0).ToString())
            cnt1 = Trim(dr(1).ToString())
            cnt2 = Trim(dr(2).ToString())
            cf = Trim(dr(3).ToString())
            co = Trim(dr(4).ToString())

            Dim str As String
            If cnt1 <> "" Or name <> "" Then
                str = "insert into tbl_edu_dt(full_name,contact1,contact2,Activity,Center,DistName,DataSource,Collected_From,Collected_On,batch_code,batch_id,imp_date,imp_time,Data_Type) values ('" & name & "','" & cnt1 & "','" & cnt2 & "','" & act & "','" & cnt & "','" & distt & "','" & ds & "','" & cf & "' , '" & co & "','" & bcode & "','" & m & "','" & Format(Now(), "dd/MM/yyyy") & "','" & imp_time & "','" + dtype + "')"
                ObjClass.execute_query(str)

                m = m + 1
            End If
        End While

    Catch ex As Exception

    End Try
    conexcel.Close()
    File.Delete(Server.MapPath("~/Upload/" + FileUpload1.FileName))
Catch ex As Exception
    Response.Write(ex)
End Try