create table SampleImageTable (sampleimage image)

create  procedure UploadImage(@imgsamgetimage as image) 
as
insert into SampleImageTable (sampleimage) values (@imgsamgetimage)

Private Sub btnseltfile_Click(ByVal sender As System.Object, 
        ByVal e As System.EventArgs) Handles 

btnseltfile.Click
    OpenFileDialog1.ShowDialog()
    txtImg.Text = OpenFileDialog1.FileName
End Sub

Private Sub btnUpload_Click(ByVal sender As System.Object, 
             ByVal e As System.EventArgs) Handles btnUpload.Click
        Try
            If Trim(txtImg.Text) = "" Then
                MsgBox("Please select a image.")
                Exit Sub
            End If
            Dim fs As New FileStream(Trim(txtImg.Text), FileMode.Open)
            Dim Data() As Byte = New [Byte](fs.Length) {}
            fs.Read(Data, 0, fs.Length)

            Dim con As New System.Data.SqlClient.SqlConnection("data source=mt5;initial 
  catalog=master;
                user id=sa;password=mms")
            con.Open()
            Dim cmd As New System.Data.SqlClient.SqlCommand("UploadImage")
            cmd.Connection = con
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.Add("@imgsamgetimage", Data)
            cmd.ExecuteNonQuery()
            con.Close()
            fs.Close()
        Catch ex As System.Data.SqlClient.SqlException
            MsgBox(ex.Message)
        End Try
End Sub

    Private Sub btnDownload_Click(ByVal sender As System.Object, 
            ByVal e As System.EventArgs)  Handles btnDownload.Click

     Dim con As New System.Data.SqlClient.SqlConnection("data source=mt5;initial 
catalog=master;
        user id=sa;password=mms")
     con.Open()
     Dim cmd As New System.Data.SqlClient.SqlCommand("select * from SampleImageTable")
     cmd.Connection = con
     cmd.CommandType = CommandType.Text
     Dim da As New System.Data.SqlClient.SqlDataAdapter(cmd)
     Dim ds As New DataSet()
     da.Fill(ds)
     Dim bits As Byte() = CType(ds.Tables(0).Rows(0).Item(0), Byte())
     Dim memorybits As New MemoryStream(bits)
     Dim bitmap As New Bitmap(memorybits)
     PictureBox1.Image = bitmap
End Sub