Para ser sincero está medio extraña tu implementación, sin embargo atendiendo tu solicitud podrías hacer algo como ésto:
Código:
_lector = _comando.ExecuteReader(CommandBehavior.CloseConnection) 'Se ejecuta la consulta, comando ya sabe los datos de conexion y la cadena de consulta
y donde lo mandas a llamar después del while cierras el objeto para que cierres también la conexión
Código:
While Lector.Read()
DGArticulo.Rows.Add(Lector("ar_id").ToString(), Lector("ar_codigoarticulo").ToString(), Lector("ar_nombre").ToString(), Lector("ar_descripcion").ToString())
End While
Lector.Close()
Salu2