读取器关闭时无效尝试调用Read

Question

我有这个代码，我使用其他形式，它的工作很好，但现在它刚开始给我一个错误caled

“读取器关闭时无效尝试调用读取。”

我的代码

Dim query1 As New OleDbCommand("SELECT * FROM Calendario WHERE Calendario.finalizado=@final", con)
        query1.Parameters.Add("@final", OleDbType.Boolean).Value = Boolean.FalseString

        con.Open()
        Dim dr1 As OleDbDataReader = query1.ExecuteReader
        Dim conty = 0

        If dr1.HasRows Then
            While dr1.Read()

                MsgBox(dr1("ID"))

            End While

        Else
            MsgBox("Não exsitem registos!")
        End If

表示error

的图像