Private Sub ButUpload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs, ByVal strFilePath As String) Handles ButUpload.Click
        Try
            cn.Open()
            Dim strSQL As String = "Insert BigFile(FilePath,File) Values(@FilePath,@File)"
            Dim cmd As New SqlCommand(strSQL, cn)
            cmd.Parameters.Add("@File", SqlDbType.VarBinary)
            Dim aBytes() As Byte
            file = New IO.FileStream(strFilePath, IO.FileMode.Open)
            aBytes = Array.CreateInstance(GetType(Byte), file.Length)
            file.Read(aBytes,  0 , file.Length)
            cmd.Parameters("@FileName").Value = aBytes
            cmd.ExecuteNonQuery()
        Catch ex As Exception
        Finally
            If Not cn Is Nothing Then _
                        cn.Close()
            If Not file Is Nothing Then _
            file.Close()
        End Try
    End Sub