Visual Basic - Por favor ayuda

Ustedes tal vez me puedan ayudar Tengo este codigo mi problema es al declarar mi if yo le quiero indicar que si en la tabla tblNOMINAINICIOCIERRE en el campo ABIERTO hay un 1 que habilite mis campos y si hay un 0 pues lo contrario no se como hacerlo, se que mi codigo esta mal en el if o eso espero, a ver si me pueden ayudar ya no se que hacer me marca error en mi If dr.Read("abierto") = 1 Then

Private Sub VerificaAperturaCierreNomina()
'Leer tblNominaInicioCierre
Dim cn As SqlConnection
Dim cmd As SqlCommand
Dim dr As SqlDataReader
cn = New SqlConnection
cn.ConnectionString = "DATABASE=Crm;SERVER=sql4498_3.mysite4now.com;UID=Usuario;PWD=contraseña;"
cn.Open()
cmd = New SqlCommand("select abierto from tblnominainiciocierre", cn)
dr = cmd.ExecuteReader
If dr.Read("abierto") = 1 Then
txtNumeroPlan.Enabled = True
txtRuta.Enabled = True
Label6.Visible = False
btnTraePersonal.Enabled = True
Else
txtNumeroPlan.Enabled = False
txtRuta.Enabled = False
Label6.Visible = True
btnTraePersonal.Enabled = False
End If
End Sub

cabe destacar que esto lo estoy haciendo en VISUAL BASIC.NET