Script error pada tombol login (Connection must be valid and open.)

saya telah membuat script login sesuai dengan tutor internet, sebelum tombol loginnya diklik tidak ada error sama sekali tetapi setelah saya tekan tombol login maka timbullah error beriku "Connection must be valid and open." Berikut ini Script login saya

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim Sql, user, pass, level As String


        user = TextBox1.Text     'Variabel user diisi nilai yang diinputkan txtUser
        pass = TextBox2.Text     'Variabel user diisi nilai yang diinputkan txtPass
        level = ComboBox1.SelectedItem 'Variabel user diisi item yang dipilih cbHak

        'Cek apakah user, password dan hak akses yang telah dipilih/dimasukan ada di database
        Sql = "SELECT * FROM login WHERE  username='" + user + "' AND password ='" + pass + "' AND level ='" + level + "'"
        cmd = New MySqlCommand(Sql, Conn)

        RD = CMD.ExecuteReader()

        If RD.HasRows = True Then      'Jika data ditemukan

            If level = "Super_admin" Then
                menu1.Show()
                Me.Hide()
            Else
                menu1.TambahAdminToolStripMenuItem.Enabled = False
                menu1.Show()
                Me.Hide()
            End If

        Else

            'Munculkan messagebox pesan salah
            MessageBox.Show("Kombinasi Username ,Password dan Hak Akses Salah", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            TextBox1.Focus()
        End If

        RD.Close()
        cmd.Dispose()
    End Sub

mohon bantuannya terima kasih jika saudara berkenan saya minta tolong jika telah menjawab pertannyaan saya diatas untuk meluangkan waktu mengabari saya bahwa pertanyaan saya telah dijawab melalui WA saya 081276968928