Dim con As New OleDb.OleDbConnection
        Dim cmd As New OleDb.OleDbCommand
        Dim reader As OleDb.OleDbDataReader
        Dim Spiel As String = ""
        Dim Vorhanden As Boolean
        cmd.CommandText = "SELECT Spiel FROM Tabelle1 WHERE Spiel = '%" & _
          TextBox1.Text & "%'"
        con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" &
                               "Data" & _
                                 "Source=C:\Users\XXXXXX\Desktop\gamesData.acc" & _
                                 "b;"
        cmd.Connection = con
 
        Try
 
 
            con.Open()
            reader = cmd.ExecuteReader()
 
            Do While reader.Read
 
                Spiel = reader("Spiel")
 
                If Spiel = TextBox1.Text Then
                    Vorhanden = True
                Else
                    Vorhanden = False
                End If
 
 
                Spiel = reader("Spiel")
                ListBox1.Items.Add(Spiel)
 
                MessageBox.Show(cmd.CommandText)
 
            Loop
            reader.Close()
            con.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
 
        If Vorhanden = False Then MsgBox("Das Spiel konnte in der Datenbank" & _
          "nicht gefunden werden", MsgBoxStyle.OkOnly, "Fehler")