while reader.read() give me the same result more than one time

i want to read this sql result but every time al have much result more than the sql statment retreve

 Dim con As New OdbcConnection
            con.ConnectionString = "Dsn=online_ordering_system;server=localhost;uid=root;database=online_ordering_system;port=3306"
            con.Open()
            Dim sql As String
            sql = "SELECT ProductImg FROM products WHERE CategoryId=" & id

    Dim dbCommand As New OdbcCommand(sql, con)
    Dim dbReader As OdbcDataReader = dbCommand.ExecuteReader

    If dbReader.HasRows Then
        Do While dbReader.Read()

            Console.WriteLine("productPhoto={0}", dbReader(0).ToString)

        Loop
    End If

    dbReader.Close()