Imports System.IO
Imports System.Drawing
Public Class Store
    Dim id As String
    Private Sub BtnSearch_Click(sender As Object, e As RoutedEventArgs) Handles btnsearch.Click

        Dim ds As New NEADataSet
        Dim dr As System.Data.DataRow
        Dim da As New NEADataSetTableAdapters.GamesTableAdapter
        Dim dt As System.Data.DataTable
        Dim search As String
        search = LCase(txtSearch.Text)
        dt = ds.Tables("Games")
        da.Fill(dt)
        For Each dr In dt.Rows
            If String.Compare(dr("Name"), search) = 0 Then
                Dim Q As String = "[Name] =  '" & search & "'"
                Dim result() As NEADataSet.GamesRow = dt.Select(Q)
                id = result(0).GameID
                GoTo LineBreak
            Else
                MsgBox("The game you entered is not in the database", vbExclamation)
            End If
        Next

LineBreak:
        ds.Dispose()
        For Each dr In dt.Rows
            If String.Compare(dr("GameID"), id) = 0 Then
                txtname.AppendText(dr.Item("Name"))
                btnBuy.Content = "Buy for £" & dr.Item("Price")
                lblPublisher.Content = "Publisher: " & dr.Item("Publisher")
                lblRating.Content = "This game is rated " & dr.Item("Rating") & " out of 5"
                lblReviews.Content = "Gamer review: "
                Dim bytes As [Byte]() = dr.Item("Icon")
                Dim ms As New MemoryStream(bytes)
                Dim bi As New BitmapImage()
                bi.BeginInit()
                bi.StreamSource = ms
                bi.EndInit()
                imgLogo.Source = bi
            End If

        Next
    End Sub

    Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
        Dim a As New AddGame()
        a.Show()

    End Sub
End Class