Can anyone help to retrieve an image from sql server database

Private Sub ButtonSave_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles ButtonSave.Click
        Dim ms As New IO.MemoryStream()
        Dim arrimage() As Byte = ms.GetBuffer
        pictBox.Image.Save(ms, pictBox.Image.RawFormat)
        If txtLname.Text = "" Or txtFtname.Text = "" Or _
            txtCity.Text = "" Then
        End If
        If frUpdate = True Then
            Dim cmd As New SqlCommand()
            cmd.CommandText = "UPDATE Staff SET Lastname = @Lastname, Firstname = @Firstname, City = @City, Photo = @Photo WHERE StaffID = @StaffID"
            With cmd.Parameters
                .Add(New SqlParameter("@Lastname", txtLname.Text))
                .Add(New SqlParameter("@Firstname", txtFname.Text))
                .Add(New SqlParameter("@City", txtCity.Text))
                .Add(New SqlParameter("@Photo", SqlDbType.Image)).Value = arrimage
                .Add(New SqlParameter("@StaffID", txtAA.Text))
            End With
            cmd.Connection = clsMSSQL.con
            cmd.ExecuteNonQuery()
            MsgBox("Επιτυχημένη Ενημέρωση!", MsgBoxStyle.Information, "Πληροφορία")
            frmList.cmdRefresh.PerformClick()
            Close()
            Exit Sub
        Else
            Dim cmd As New SqlCommand()
            cmd.CommandText = "INSERT INTO Staff(Lastname,Firstname,City,Photo)" & _
                                 "VALUES (@Lastname,@Firstname,@City,@Photo)"
            With cmd.Parameters
                .Add(New SqlParameter("@Lastname", txtLname.Text))
                .Add(New SqlParameter("@Firstname", txtFname.Text))
                .Add(New SqlParameter("@City", txtCity.Text))
                .Add(New SqlParameter("@Photo", SqlDbType.Image)).Value = arrimage
            End With
            cmd.Connection = clsMSSQL.con
            cmd.ExecuteNonQuery()
            MsgBox("Επιτυχημένη Αποθήκευση!", MsgBoxStyle.Information, "Πληροφορία")
            Call LoadID()
        End If
        frmList.cmdRefresh.PerformClick()
        Exit Sub
    End Sub