sql = "Insert into votretable (Fichier) Values (@Fichier)"
Dim fs As New FileStream(Fichier.Text, FileMode.Open, FileAccess.Read)
Dim br As New BinaryReader(fs)
Dim file() As Byte = br.ReadBytes(br.BaseStream.Length)
cmd.Parameters.Add(New SqlParameter("@Fichier", SqlDbType.VarBinary)).Value = file