Solo una recomendacion... cuando ocupen ésto:
Me.lblpob.Text = dr("poblacion")
Traten siempre de hacer una declaracion implícita

para tener un poco mas de rapidez en la aplicacion.
Ejemplo-
Me.lblpob.Text =
CStr (dr("poblacion"))
O en su defecto...hacer con el mismo datareader y poniendo el numero del campo correspondiente..(empieza desde el cero)
Suponiendo que tengo ésto:
Select campo1,
poblacion from tabla
y quiero obtener poblacion..puedo hacer:
Cita: Me.lblpob.Text = r.GetString (1)
Donde tambien está:
dr.GetString(1)
dr.GetInt16(1)
dr.GetInt32(1)
dr.GetBoolean(1)...etc.
Saludos