Dim cmd As String = "SELECT * FROM artikel LIMIT 0 , 1"
        Dim com As New MySqlCommand(cmd, myconn)
        Dim dr As MySqlDataReader = com.ExecuteReader
        While (dr.Read)  <~~ Error: Specified method is not supported.
            MsgBox(dr.Item(0))
        End While