Fejl i kode

Hej
Jeg har oprettet følgende i en userform der startes fra toolstripsbutton4. Jeg får imidlertid følgende fejl (med gul markering af linien: Dim reader As SqlDataReader = Command.ExecuteReader): "ExecuteReader requires an open and available Connection. The connection's current state is closed."

Koden:

    Private Sub Hent()
        Dim Connection As New SqlConnection(Conn)
        Connection.Open()
        Dim X As Long

        For X = 8 To 54 Step 2
            Dim Command As New SqlCommand("SELECT HCV FROM Sengeplads WHERE Plads = '" & X & "'", Connection)
            Dim reader As SqlDataReader = Command.ExecuteReader()
            If reader.Read() Then

                If X = 8 Then
                    Me.TextBox1.Text = reader.GetString(0)
                ElseIf X = 10 Then
                    Me.TextBox2.Text = reader.GetString(0)
                ElseIf X = 12 Then
                    Me.TextBox4.Text = reader.GetString(0)
                ElseIf X = 14 Then
                    Me.TextBox3.Text = reader.GetString(0)
                ElseIf X = 16 Then
                    Me.TextBox9.Text = reader.GetString(0)
                ElseIf X = 18 Then
                    Me.TextBox12.Text = reader.GetString(0)
                ElseIf X = 20 Then
                    Me.TextBox21.Text = reader.GetString(0)
                ElseIf X = 22 Then
                    Me.TextBox29.Text = reader.GetString(0)
                ElseIf X = 24 Then
                    Me.TextBox25.Text = reader.GetString(0)
                ElseIf X = 26 Then
                    Me.TextBox26.Text = reader.GetString(0)
                ElseIf X = 28 Then
                    Me.TextBox33.Text = reader.GetString(0)
                ElseIf X = 30 Then
                    Me.TextBox31.Text = reader.GetString(0)
                ElseIf X = 32 Then
                    Me.TextBox39.Text = reader.GetString(0)
                ElseIf X = 34 Then
                    Me.TextBox37.Text = reader.GetString(0)
                ElseIf X = 36 Then
                    Me.TextBox45.Text = reader.GetString(0)
                ElseIf X = 38 Then
                    Me.TextBox53.Text = reader.GetString(0)
                ElseIf X = 40 Then
                    Me.TextBox49.Text = reader.GetString(0)
                ElseIf X = 42 Then
                    Me.TextBox50.Text = reader.GetString(0)
                ElseIf X = 44 Then
                    Me.TextBox57.Text = reader.GetString(0)
                ElseIf X = 46 Then
                    Me.TextBox55.Text = reader.GetString(0)
                ElseIf X = 48 Then
                    Me.TextBox63.Text = reader.GetString(0)
                ElseIf X = 50 Then
                    Me.TextBox71.Text = reader.GetString(0)
                ElseIf X = 52 Then
                    Me.TextBox67.Text = reader.GetString(0)
                ElseIf X = 54 Then
                    Me.TextBox68.Text = reader.GetString(0)
                End If

                reader.Close()
                Connection.Close()
            End If

        Next X

    End Sub