Dim pic() As Byte = {}
If (OpenFileDialog1.FileName <> "") Then
Dim fiStremam As New FileStream(OpenFileDialog1.FileName, _
FileMode.Open, _
FileAccess.Read)
Dim binReader As New BinaryReader(fiStremam)
pic = binReader.ReadBytes(fiStremam.Length)
'Dim stream As New MemoryStream(fiStremam)
PictureBox1.Image = New Bitmap(fiStremam)
command.Parameters.AddWithValue("pic", pic)
Load balance : Server 04
