I'm using vb 2010 professional and i have "There is already an open `DataReader` associated with this `Connection` which must be closed first" problem

This is my full source code:

```
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

    MysqlConn = New MySqlConnection
    MysqlConn.ConnectionString = "server=localhost;userid=root;password=;database=penjara"
    Dim Reader As MySqlDataReader

    MysqlConn.Open()
    Dim query As String
    Dim spath As String
    Dim count As Integer = 0
    Dim mysound As Media.SoundPlayer

    query = "select* from penjara.info"
    Command = New MySqlCommand(query, MysqlConn)
    Reader = Command.ExecuteReader

    While Reader.Read
        count = count + 1

        query = "Select penjara.info where  no =count"
        Command = New MySqlCommand(query, MysqlConn)
        Reader = Command.ExecuteReader

        If (Reader.GetInt32("keadaan") = 1) & (Reader.GetInt32("no") = count) Then
            Form2.Show()
            Me.Hide()
            spath = "C:\Users\User\Music\emergency003.wav"
            mysound = New Media.SoundPlayer(spath)
            mysound.PlayLooping()
        ElseIf (Reader.GetInt32("keadaan") = 1) & (Reader.GetInt32("no") = count) Then
            Form3.Show()
            Me.Hide()
            spath = "C:\Users\User\Music\emergency003.wav"
            mysound = New Media.SoundPlayer(spath)
            mysound.PlayLooping()
        ElseIf (Reader.GetInt32("keadaan") = 1) & (Reader.GetInt32("no") = count) Then
            Form4.Show()
            Me.Hide()
            spath = "C:\Users\User\Music\emergency003.wav"
            mysound = New Media.SoundPlayer(spath)
            mysound.PlayLooping()
        ElseIf (Reader.GetInt32("keadaan") = 1) & (Reader.GetInt32("no") = count) Then
            Form5.Show()
            Me.Hide()
            spath = "C:\Users\User\Music\emergency003.wav"
            mysound = New Media.SoundPlayer(spath)
            mysound.PlayLooping()
        ElseIf (Reader.GetInt32("keadaan") = 1) & (Reader.GetInt32("no") = count) Then
            Form5.Show()
            Me.Hide()
            spath = "C:\Users\User\Music\emergency003.wav"
            mysound = New Media.SoundPlayer(spath)
            mysound.PlayLooping()
        End If
    End While
End Sub

```