uploading video to a specifique folder and save his filepath into database

Private Sub video()
        If IsPostBack Then
            Dim path As String = Server.MapPath("~/UploadedVideos/")
            Dim fileOK As Boolean = False
            If FileUpload1.HasFile Then
                Dim fileExtension As String
                fileExtension = System.IO.Path. _
                GetExtension(FileUpload1.FileName).ToLower()
                Dim allowedExtensions As String() = _
                {".mov", ".wmv", ".avi", ".vob", ".mp4"}
                For i As Integer = 0 To allowedExtensions.Length - 1
                    If fileExtension = allowedExtensions(i) Then
                        fileOK = True
                    End If
                Next
                If fileOK Then
                    Dim Conn As New SqlConnection(ConfigurationManager.ConnectionStrings("projectConnectionString").ConnectionString)

                    Conn.Open()
                    Try
                        Dim FilePath = path & FileUpload1.FileName
                        'Here you can fire your insert statement in filepath value u can pass directly that value
                        Dim SQL As String = "INSERT INTO EmpData ( [Video]) VALUES (@VideoUrl)"
                        Dim cmd As New SqlCommand(SQL, Conn)
                        cmd.Parameters.Add("@VideoUrl", SqlDbType.NVarChar, 50, FilePath)
                        FileUpload1.PostedFile.SaveAs(path & _
                        FileUpload1.FileName)
                        lblError.Text = "File uploaded!"
                        cmd.ExecuteNonQuery()
                        Conn.Close()
                    Catch ex As Exception
                        lblError.Text = "File could not be uploaded." & ex.Message
                    End Try

                Else
                    lblError.Text = "Cannot accept files of this type."
                End If
            End If
        End If
    End Sub

Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim connection As SqlConnection = Nothing
        Try
            Dim img As FileUpload = CType(PicUpload, FileUpload)
            Dim imgByte As Byte() = Nothing
            If img.HasFile AndAlso Not img.PostedFile Is Nothing Then
                'To create a PostedFile
                Dim File As HttpPostedFile = PicUpload.PostedFile
                'Create byte Array with file len
                imgByte = New Byte(File.ContentLength - 1) {}
                'force the control to load data in array
                File.InputStream.Read(imgByte, 0, File.ContentLength)
            End If
            ' Insert the employee name and image into db
            Dim conn As String = ConfigurationManager.ConnectionStrings("projectConnectionString").ConnectionString
            connection = New SqlConnection(conn)

            connection.Open()
            Dim sql As String = "INSERT INTO EmpData (DateOfUpload, DescOfWork,WorkDone,ComOfEmp,Picture,EmpUsername)VALUES (@en1m,@en2m,@en3m,@en4m,@eimg,@en5m)SELECT @@IDENTITY"
            Dim cmd As SqlCommand = New SqlCommand(sql, connection)
            cmd.Parameters.AddWithValue("@en1m", Calendar1.SelectedDate)
            cmd.Parameters.AddWithValue("@en2m", TypeOfWork.Text.Trim())
            cmd.Parameters.AddWithValue("@en3m", WorkOfTheDay.Text.Trim())
            cmd.Parameters.AddWithValue("@en4m", ComOfEmp.Text.Trim())
            cmd.Parameters.AddWithValue("@eimg", imgByte)
            cmd.Parameters.AddWithValue("@en5m", Request.QueryString("id"))
            Dim id As Integer = Convert.ToInt32(cmd.ExecuteScalar())


        Catch ex As Exception
            MsgBox(ex.Message)

        Finally
            connection.Close()
        End Try
        Call video()
        Response.Redirect("Employee.aspx?id=" + TextBox1.Text, False)
    End Sub