[VB2010]MySQL Problem

Try
            Dim conn As MySqlConnection
            conn = New MySqlConnection
            conn.ConnectionString = "server=*********;" _
                                                 & "user id=**********;" _
                                                 & "password=****************************;" _
                                                 & "database=***"
            Try
                conn.Open()
            Catch myerror As MySqlException
                MsgBox("Keine Verbindung zur Datenbank : " & myerror.Message.ToString)
            End Try


            Dim myAdapter As New MySqlDataAdapter
            Dim SQLAbfrage As String = "SELECT * FROM  samp_acc WHERE Name = " & TextBox1.Text & "'"
            Dim myCommand As New MySqlCommand
            myCommand.Connection = conn
            myCommand.CommandText = SQLAbfrage
            myAdapter.SelectCommand = myCommand
            Dim myData As MySqlDataReader
            myData = myCommand.ExecuteReader()
            Do While myData.Read()
                ListBox1.Items.Add(myData("adminlevel"))
            Loop
            conn.Close()
        Catch ex As Exception


        End Try